program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 f1,x:real;
 i:integer;

begin
 x:=-0.60;
 i:=1;

while i<=20 do

begin
if (1+x)<>0 then
 f1:=(ln(1+x))
else
 x:=x+0.05;

Writeln('i=',i:3,' f1 = ',f1:4:2,'  x =',x:6:2);
 x:=x+0.05;
 i:=i+1;
end;
end.