var a,b:integer;
begin
a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
repeat
  if a>b then a:= a-b;
  if a<b then b:= b-a;
until a=b;
label1.Caption:= inttostr (a);
end;

end.