Ответы и объяснения

Лучший Ответ!
2014-02-02T22:03:08+00:00
Var
   x:integer;
   s:real;
begin
   write('Введите x '); readln(x);
   s:=30*(x+5/6)*(x-2/5);
   write('Ответ',s);
end.