по информатике
Вывести таблицу значений функции y=2.5*x*x+x. Значения Х задаются минимумом, максимумом и шагом. Например, если минимум задан как 1, максимум равен 3, а шаг 0.5. То надо вывести на экран изменение Х от 1 до 3 с шагом 0.5 (1, 1.5, 2, 2.5, 3) и значения функции Y при каждом значении X.
var x, y: real;
a, b, h: real;
begin
a := 1;
b := 3;
h := 0.5;
writeln('x':5, 'y':10);
x := a;
while x <= b do
begin
y := 2.5 * x * x + x;
writeln(x:5, ' ', y:10:3);
x := x + h;
end;
end.