// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a, b, h) := (0.0, 4.0, 0.2);
var x := a;
while x <= b + h / 2 do</p>
begin
Writeln($'{x,3:f1} | {x*x*Ln(Sqrt(x+1)),13:f10}');
x += h
end
end.