program Soucet_Ntin;
{Soucet N hodnot 1/N pro N od 1 do 20}

var N, I: integer;
    Ntina, Suma : real;
         {vyzkouset vypocet v rezimu $N-,$E-               }
         {a pri $N+,$E+ typy real, single, double, extended}

begin
  write('          hodnota 1/N');
  writeln('             soucet N hodnot 1/N');
  for N:= 1 to 20 do
    begin
    Ntina := 1/N;
    Suma := 0;
    for I := 1 to N do
      Suma := Suma + Ntina;
    write('1/', N, ' =', Ntina, '   ', Suma);
    if Suma = 1 then writeln('  = 1')
                else writeln(' <> 1')
    end
end.