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

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