Question

Дано два числа. Если их сумма равна 5, прибавить 1, иначе вычесть 2.

Answer 1

Var

A, B:integer;

Begin

Write ('Введите два числа: '); ReadLn (A, B);

A:=A+B;

if A mod 5 = 0 then A:=A+1

else A:=A-2;

WriteLn (A);

End.

Введите два числа: 17 13

31