PROGRAM Petla2;

USES Crt;

VAR i, x, y, Nwp : Integer;
    Zn           : Char;

BEGIN
  ClrScr;
  Write('Podaj 1-sza liczbe : '); 
  ReadLn(x);
  Write('Podaj 2-ga liczbe  : '); 
  ReadLn(y);
  i:=1;
  WHILE (x>i) Or (y>i) DO
    Begin
      If (x Mod i=0) And (y Mod i=0) Then Nwp:=i;
      i:=i+1;
    End;
  Write('Najwiekszy wspolny podzielnik = ', Nwp);
  Zn:=ReadKey;
END.