Запиши программу на языке Паскаль

Число, выведенное на экран 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.