program ThreeBranches; var num: integer; begin write('Enter a number: '); readln(num); if num < 0 then writeln('Number is negative') else if num > 0 then writeln('Number is positive') else writeln('Number is zero'); end.
Программа принимает число от пользователя и выводит сообщение о том, является ли число отрицательным, положительным или нулевым.
var
num: integer;
begin
write('Enter a number: ');
readln(num);
if num < 0 then
writeln('Number is negative')
else if num > 0 then
writeln('Number is positive')
else
writeln('Number is zero');
end.
Программа принимает число от пользователя и выводит сообщение о том, является ли число отрицательным, положительным или нулевым.