Question

(Данная задача была создана для приложения на ПК "Pascal ABC")
Дано целое число N. Уменьшить число на 12, если число не четное.
ПОМОГИТЕ ПОЖАЛУЙСТА. ОЧЕНЬ НУЖНО ДО ЗАВТРА))

Answer 1

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