Даны целые числа m и n. Определить, являются ли они делителями значения суммы первой и предпоследней цифры целого четырехзначного целого числа с использованием операторов "mod" и "div"

Var

m, n, s, p:integer;

Begin

read (m, n, s) ;

p: = (s mod 10) + (s div 100 mod 10) ; {p сумма цифр}

If (p mod m = 0) and (p mod n = 0) then

writeln ('Числа ', m,' и ', n,' являются делителями числа ', p)

else

writeln ('Числа ', m,' и ', n,' не являются делителями числа ', p) ;

end.

Объяснение из скобок можешь убрать