Число, выведенное на экран 144
Объяснение:
var
x, y: real;
begin
Write('Введите значние x: '); ReadLn(x);
if x <= 0 then y := 0 else if x > 1 then y := sqr(x) else y := x;
WriteLn('y(', x, ') = ', y);
end.
