Question

Составьте программу, в которой значение переменной с вычисляется по
формуле: а + Ь, если а — нечетное (a mod 2 = 1), и а*Ь, если а — четное (а mod
2 = 0)

Answer 1

Var

a,b,s:integer;

Begin

readln (a,b);

if (a mod 2 = 1)

then s := a + b

else if (a mod 2 = 0)

then s := a * b;

write(s);

End.

Answer 2

Не получается(((((

Answer 3

Странно, у меня все работает