Question

Пожалуйста,если можно,то запись на Паскаль
Дано целое число А. Увеличить его на 12, если оно нечетное.​

Answer 1

var

 a:integer;

begin

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

 readln(a);

 if a mod 2 = 1 then a:=a+12;

 writeln(a);

end.

Сделал ввод через клавиатуру. При необходимости могу исправить на случайное значение. Удачи!

Answer 2

Ответ:

var

   a, x: integer;

begin

   readln(a);

   x := a mod 2;

   if x = 1 then

       begin

           a := a +12;

           write(a);

       end

   else write('это четное число.');

end.