Вопрос Составить алгоритм и программу вычисления функции

[террор]

Помогите с программой алгоритм сам вроде бы понятен. А вот написать в паскале никак
Составить алгоритм и программу вычисления функции, x, a, b, c – вводится с клавиатуры.
//otvet.imgsmail.ru/download/209012763_3416e0a585b84ba71a56e1317c919da0_800.jpg

 

[ИЛЬЯ ЗУБОВ]

составил.

 

[den56rus]

var a,b,c,x,y:real; begin readln(x,a,b,c); if a+b+c>20 then y:=2*x-1 else y:=3*x*x*x+1; writeln end.