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

Uses crt; var a: integer;     begin         clrscr;               readln(a);                   if (a mod  5=0)and(a mod 10=0)then                       writeln('кратное')                   else                         writeln('не кратно');     readkey; end.

если под ячейкой поодразумевается байт (восемь бит) то:

(для беззнаковых (натуральных с нулём) )

или

- (для знаковых (целых) )