Указать исходные данные, результат и выполнить графическое описание алгоритма с предусловием и написать решение: 1) вычислить значение функции f=5x³-4x+5 при x=9,18,27,36,45,54

Program qwe;
Uses crt;
var x,x1,h,f:real;
begin
clrscr;
writeln('    x         y   ');
x:=9;
x1:=54;
h:=9;
while x<=x1 do
begin
f:=5*exp(ln(x)*3)-4*x+5;
writeln(x:6:1,'  ', f:9:2);
x:=x+h;
end;
Readkey;
end.