Given a function y = 3x ^ 2 + 1.5 x varies from 1 to 20 write a program in pascal to calculate

Given a function y = 3x ^ 2 + 1.5 x varies from 1 to 20 write a program in pascal to calculate the value of the function in reverse order.

program zz1;
var x, y: real; // set variables of non-integer type
begin
x: = 20;
while x> = 1 do // organize a loop in which we iterate over all numbers from twenty to one through one
begin
y: = 3 * x * x + 1.5; // calculate the value using the given formula
writeln (‘for’, x, ‘calculated value y =’, y: 5: 2); // display the answer in a column in the format of five characters for the whole number and two characters after the dot
x: = x – 1; // decrease x by one
end;
end.