Очень нужно!!!!!!!!!

Question

Очень нужно!!!!!!!!!

---

Answer 1

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