1.отыскать функцию y=4x-5 на отрезке [1;30] с шагом h=3.2. Отыскать функцию

1.program zz1;
var x, y, h:real; // задаем переменные не целого типа
begin
x:=1;h:=3.2;
while x lt;= 30 do // организуем цикл
begin
y:=4 * x - 5; // вычисляем значение по заданной формуле
writeln( для ,x, вычисленное значение y = , y:5:2); // выводим ответ в столбец в формате пять знаков для всего числа и два знака после точки
x:=x + h; // увеличиваем на шаг
end;
end.

2.program zz1;
var x, y, h:real; // задаем переменные не целого типа
begin
x:=-5;h:=2;
while x lt;= 5 do // организуем цикл
begin
y:= 5 * x * x - 2 * x + 1; // вычисляем значение по данной формуле
writeln( для ,x, вычисленное значение y = , y); // выводим ответ в столбец
x:=x + h; // увеличиваем на шаг
end;
end.