Выяснить, являются ли числа 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.