Наименьший общий делитель

Из двух заданных чисел, выдаем наименьший общий делитель.

На форме 3 едита и 1 баттон.

2 для ввода чисел, 1 для вывода результата.

 

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:integer;

 

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

c:=a mod b;

 

while c>0 do begin

a:=b;

b:=c;

c:=a mod b;

end;

 

if c=0

then

edit3.text:=inttostr(b);

end;