Какое слово будет выведено на экран в результате выполнения программы, если ввели число 15?

Var R: integer;

begin

Writeln('Введите число');

Readln(R);

IF R mod 2 = 0 Then WriteLn('вверх')

Else WriteLn('вниз');

END.