Помогите не могу сделать!!!

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var mh:=Arr(0.9,1.3,3.4,300.0,1000.0);
  var g:=9.8;
  foreach var h in mh do Writeln(h:6:1,Sqrt(h/g):8:2)
end.

Итог (форматирование тут нарушено из-за использования пропорционального шрифта, на самом деле оно есть)
   0.9    0.30
   1.3    0.36
   3.4    0.59
 300.0    5.53
1000.0   10.10

begin
  var x:=0.0;
  while xlt;=4.01 do begin
    Writeln(x:3:1,2+x*x+Sin(2*x):15:5);
    x+=0.5
    end
end.

Результат
0.0        2.00000
0.5        3.09147
1.0        3.90930
1.5        4.39112
2.0        5.24320
2.5        7.29108
3.0       10.72058
3.5       14.90699
4.0       18.98936