вот училка задала на отработку по программированию на паскаль ! решите пж :)
" Дано целое число. Определить, является ли оно кратным 5 и 10 "

Достаточно 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.