Var
x, y: real;
begin
Write('Введите х: ');
Readln(x);
if x < 1 then y := 2 * x - 5
else y := x * x * x - 2 * x;
Writeln('y=', y)
end.
Возвращать, если существительное по контексту - возврат
Различные windows быстрей и лучше работает.
10 прямоугольников.!!!!!!!!!!!