Дано целое число n увеличить число в 3 раза если число четное . входные данные 4. выводимые данные 12. паскаль.

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var n:=ReadInteger;
  if not Odd(n) then n:=n*3;
  Writeln(n)
end.

Тестовое решение:
4
12

//Pascal ABC.NET v3.1 сборка 1172

var
  n: integer;

begin
  read(n);
  if n mod 2 = 0 then n := n * 3;
  writeln(n);
end.

Пример ввода:
4
Пример вывода:
12