// Цикл for. Таблица функции
var 
  a: real := 0;
  b: real := 4;
  n: integer := 16;

begin
  var h := (b-a)/n;
  var x := a;
  for var i:=0 to n do
  begin
    WritelnFormat('{0:f2}  {1:f4}',x,sqrt(x));  
    x += h;
  end;
end.