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

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