информатика програмирование составить программу признаки делимости на 3 , 5 , 9 , 10 , 11

vara:longint;beginreadln(a);k:=a mod 3;If k=0 then writeln('Число делиться на 3')elsewriteln('Число не делиться на 3');k:=a mod 5;If k=0 then writeln('Число делиться на 5')elsewriteln('Число не делиться на 5');k:=a mod 9;If k=0 then writeln('Число делиться на 9')elsewriteln('Число не делиться на 9');k:=a mod 10;If k=0 then writeln('Число делиться на 10')elsewriteln('Число не делиться на 10');k:=a mod 11;If k=0 then writeln('Число делиться на 11')elsewriteln('Число не делиться на 11');end.