Помогите пожалуйста! Очень нужно!

Запиши программу на языке Паскаль для: 0, если х ≤ 0 y = x, если 0 < x < 1. (y:3:0) x², если х > 1 Запусти программу и введи значение x=-12 Число выведенное на экран:|​

pascal
program ZnachenieFunkcii;

var
  x, y: real;

begin
  readln(x);

  if x <= 0 then
    y := 0
  else if x < 1 then
    y := x
  else
    y := x * x;

  writeln(y:3:0);
end.

При вводе:

-12

выполняется условие x <= 0, поэтому y = 0.

На экран будет выведено число:

0

Формат y:3:0 выводит число в поле шириной 3 символа без знаков после запятой, поэтому фактически в строке перед нулём могут быть пробелы.