Указать исходные данные, результат и выполнить графическое описание алгоритма с предусловием и написать решение:

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.