Составить программу, которая, если введенное число четное, меняет его на противоположное(На языке Pascal)

Question

Информатика: Составить программу, которая, если введенное число четное, меняет его на противоположное(На языке Pascal)

Fobsliza · Answer

program pair;

var a, b:integer;

begin

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

readln(a);

if a mod 2 = 0 then

begin

a := -a;

writeln(a);

end

else

writeln('Число нечетное...');

end.