Паскаль. Составить программу введённого пользователем числа(целое или нет; положительное, отрицательное или нуль; чётное или нечётное)

Предыдущий
вопрос Следующий
вопрос

program CheckNumber;
var
num: real;
begin
writeln('Введите число:');
readln(num);
if (num = round(num)) then
begin
writeln('Целое число');
end
else
begin
writeln('Дробное число');
end;
if (num > 0) then
begin
writeln('Положительное число');
end
else if (num < 0) then
begin
writeln('Отрицательное число');
end
else
begin
writeln('Нуль');
end;
if (num mod 2 = 0) then
begin
writeln('Чётное число');
end
else
begin
writeln('Нечётное число');
end;
end.

Программа проверяет введённое пользователем число и выводит информацию о том, является ли оно целым или дробным, положительным, отрицательным или нулём, а также чётным или нечётным.