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

Var   A,B:integer;BeginWrite('Введите два числа: ');ReadLn(A,B);A:=A+B;if A mod 5 = 0 then A:=A+1else A:=A-2;WriteLn(A);End.Введите два числа: 17 1331