Pascal Calculate Divisors

Program Evkr_1;
Var a,b:integer;
Begin
Write('a,b=');
Read(a,b);
While a<>b do
Begin
if a>b then a:=a-b
       else b:=b-a
End;
Write('a=b=NOD',a);
End.