Question

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

Answer 1

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