Определить,является ли число 5,введённое с клавиатуры,больше 0. составить программу в паскале. h

Можно вводить любое целое число, включая 5. Если потребуется вводить еще и дробные числа, то integer поменяй на real

Program Test;

Var num: integer;

Begin

Write('Введите число: ');
Readln(num);

Writeln();

if num > 0 then
Writeln('Число больше 0')

else if num = 0 then
Writeln('Число = 0')

else
Writeln('Число меньше 0');

End.