Выяснить, являются ли числа 2, 3 и 5 делителями некоторого заданного числа А. (pascal abc)

Var

a:integer;

begin

readln (a) ;

if a mod 2 = 0 then

writeln ('2 делитель числа ', a)

else

writeln ('2 не делитель числа ', a) ;

if a mod 3 = 0 then

writeln ('3 делитель числа ', a)

else

writeln ('3 не делитель числа ', a) ;

if a mod 5 = 0 then

writeln ('5 делитель числа ', a)

else

write ('5 не делитель числа ', a) ;

end.