Uses Crt;
Var A,B:integer;
Begin
   ClrScr;
   Write('Zadejte 1. cislo: ');Readln(A);
   Write('Zadejte 2. cislo: ');Readln(B);
   While A<>B do Begin
     if A>B then A:=A-B else B:=B-A;
   End;
   Writeln('nejvetsi spolecny delitel: ',A);
   Readkey;
End.