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.