Напишите программу в которой значение вычисляется по формуле a+b, если а - нечетное число и а*b, если а - четное число (if a mod не равно 0)

program z1;

var a, b, c:integer; / / задаем переменные целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (a);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (b);

if (a mod 2 0) then c:=a + b; / / проверяем число на нечетность и вычисляем значение по заданной формуле

if (a mod 2 = 0) then c:=a * b; / / проверяем число на четность и вычисляем значение по заданной формуле

writeln (' полученный результат = ', c); / / выводим ответ

end.