Составьте программу, в которой значение переменной с вычисляется по формуле: а + Ь, если а — нечетное (a mod 2 = 1), и а*Ь, если а — четное (а mod 2 = 0)
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.
Не получается(((((
Странно, у меня все работает