Составить блок схему алгоритма и программу для вычисления функции по формуле 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