Pascal. Задача 1-9

n школьников делят k яблок поровну, неделимый остаток остается в корзинке. Пользователь вводит количество школьников n и количество яблок k в корзине. Вывести количество яблок, которое достанется каждому школьнику и количество оставшихся в корзине яблок.

Решение

var
  n, k : integer;
begin
  write('Количество школьников? ');
  read(n);
  write('Количество яблок в корзине? ');
  read(k);
  writeln('Количество яблок у каждого школьника: ', k div n);
  writeln('Осталось яблок в корзине: ', k mod n);
end.