vara:integer;beginreadln(a);if a mod 2 = 0 then writeln('2 делитель числа ',a)elsewriteln('2 не делитель числа ',a);if a mod 3 = 0 then writeln('3 делитель числа ',a)elsewriteln('3 не делитель числа ',a);if a mod 5 = 0 then writeln('5 делитель числа ',a)elsewrite('5 не делитель числа ',a);end.