Var x, y: real;
begin
readln(x);
if x < 0 then y := Abs(sin(x));
if x > 3 then y := 1 / 2 + x * x * x;
if (x >= 0) and (x <= 3) then y := x / (x + 3);
write('y(', x, ') = ', (y):0:3)
end.
1024 бит/сек = 0.124 килобайт/сек
ответ - 20000 сек
Вот у меня осталось с позапрошлого года ещё
1.сведения об объектах и явлениях окружающей среды, их параметрах, свойствах и состоянии, которые уменьшают имеющуюся о них степень неопределенности, неполноты знаний
Тут о явлениях окружающей среде речь идёт.