===== PascalABC.NET =====
begin
var x := 2.0;
repeat
Writeln(x:3:1, Exp(Sqr(x)) / 2:23:15);
x += 0.2
until x > 3.1
end.
