Составить блок схему алгоритма и программу для вычисления функции по формуле l=1.51cosx2 + 2x3

Блок-схема - в прилагаемом файле.
Программа:
var x,l:real;
begin
write('x = ');
readln(x);
l:=1.51*cos(x*x)+2*x*x*x;
writeln('L = ',l);
end.

Пример:
x = 1.5
L = 5.80145782968866