алглритм Евклида

[Журенова Катя]

Здравствуйте помогите пожалуйста написать программу на поскале,вот алгоритм:1)выделение целой части
2)отыскание остатка
3)сравнение остатка с нулём(нужно найти НОД, если он есть)
ну тоесть нужно осуществить алгоритм Евклида

[DM_bite]

program Evk_Alg;
var a,b,nod: integer;
begin
ReadLn(a,b);
 while   (b<>0) and (a<>0) do
 begin
 if b>=a then
 b:= b mod a
 else
 a:= a mod b;
 nod:= a+b;
 end;
  WriteLn(nod);
  ReadLn;
  end.