Ответ: Достаточно if (a mod 10=0) then, потому что число, кратное 10, всегда кратно и пяти. Зачем делать лишнюю проверку? При написании программы (а лучше, при составлении алгоритма) полезно немного подумать.
Ответ: uses crt;vara:integer; begin clrscr; readln(a); if (a mod 5=0)and(a mod 10=0)then writeln(‘кратное’) else writeln(‘не кратно’); readkey;end.