var
i : single;
begin
i:=2;
repeat
writeln('f[', i:0:1,']=', (exp(sqr(i))/2):0:6);
i:= trunc((i + 0.2)*100)/100;
until i>3
end.
var
i : single;
begin
i:=2;
repeat
writeln('f[', i:0:1,']=', (exp(sqr(i))/2):0:6);
i:= trunc((i + 0.2)*100)/100;
until i>3
end.