Решение смотри во вложении.
Program sh;
var n,k: integer;
begin
write('введите кол-во школьников: ');
readln(n);
write('введите кол-во яблок: ');
readln(k);
writeln('останется в корзинке: ', k mod n);
writeln('достанется каждому по ', k div n);
end.
1.Найти разность показаний счетчика на конец месяца и на начало месяца.
2.Умножить на цену одного Квт/часа
Отправитель, передатчик, возможно - ретранслятор, но редко)