Program euklid;
uses crt;

var
a,b:word;

begin
clrscr;
write('Zadaj prve cislo: ');
readln(a);
write('Zadaj druhe cislo: ');
readln(b);

repeat
if (a > b) then
a := a - b
else if (a < b) then
b := b - a;
until (a = b);

writeln('Najvacsi spolocny delitel tychto cisiel je: ',b);
readln;
end.