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.