Program CheckIfNegative;varY: integer;beginwriteln('Введите целое число Y:');readln(Y);
if Y < 0 thenwriteln('true')elsewriteln('false');end.
Program CheckIfNegative;
var
Y: integer;
begin
writeln('Введите целое число Y:');
readln(Y);
if Y < 0 then
writeln('true')
else
writeln('false');
end.