Ввести число.Если оно четное,разделить его на 4,если нечетное-умножить на 5 (Паскаль)

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

Program DivideOrMultiply;
Var
num: Integer;
Begin
Write('Введите число: ');
Readln(num);

If num mod 2 = 0 then
Begin
num := num div 4;
Writeln('Число четное, результат деления на 4: ', num);
End
Else
Begin
num := num * 5;
Writeln('Число нечетное, результат умножения на 5: ', num);
End;
End.