(данная была создана для приложения на пк "pascal abc") дано целое число n. уменьшить число на 12, если число не четное. . нужно до завтра))

Program DZ;
var n: longint;
begin
  read (n);
  if n mod 2 <> 0 then n:=n-12;
  write (n);
end.