Вывести на экран значения

[Julia_Sv]

Вывести на экран значения х,у и функции z(х,y)=5x+y^2 в виде таблицы для каждого значения х и у. Х меняется на интервале от х1 до х2 с шагом 1 . Y меняется на интервале от y1 до y2 с шагом h .Значения х1, х2, y1, y2 и h вводятся с клавиатуры. Использовать цикл While и For

[Serge_Bliznykov]

begin
ReadLn(x1,x2,y1,y2,h);
for x:=x1 to x2 do begin
  y:=y1;
  while y<=y2 do begin
    z:=5*x+sqr(y);
    Write(x:10,' ',y:15:5,' ',z:15:5);
    y:=y+h;
  end;
end;
end.