дана функция y=3x^2+1,5 х изменяется от 1 до 20 написать программу

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