Очень нужно!!!!!!!!!
Var x:integer; s:real; begin write('Введите x '); readln(x); s:=30*(x+5/6)*(x-2/5); write('Ответ',s); end.