Даны целые числа m и n. Найти, являются ли они делителями

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.

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