(Данная задача была создана для приложения ** ПК "Pascal ABC") Дано целое число N....

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.