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

program Hello;
var a,b,c: integer;
begin
    read (a, b);
    while a<>b do
        if a>b then
            a:=a-b
        else
            b:=b-a;
    write ( a )
end.