PROGRAM Petla3; USES Crt; VAR n, x : Integer; y : Real; Zn : Char; BEGIN ClrScr; Write('Podaj X : '); ReadLn(x); y:=1; n:=1; REPEAT Write('N = ', n:3); y:=x/n; WriteLn(' X/N = ', y:7:5); n:=n+1; UNTIL y<0.2; Zn:=ReadKey; END.