Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае: Введенное целое число Y является отрицательным

Tyrbo paskal

var

 Y: integer;

begin

 Write('Y = ');

 Readln(Y);

 Write('Введенное целое число ',Y,' является отрицательным - ', Y < 0);

 Readln

end.