Ответ:

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.