Задание «Дележ яблок» Условие n школьников делят k яблок поровну, неделящийся остаток остается в корзинке. Как узнать сколько яблок достанется каждому школьнику? Как узнать сколько яблок останется в корзинке? Программа получает на вход числа n и k и должна вывести искомое количество яблок (два числа).

var
  n,k:integer;

begin
  Write('Введите количество школьников и количество яблок: ');
  Read(n,k);
  Writeln('Каждому школьнику достанется яблок: ',k div n);
  Writeln('Останется в корзине яблок: ',k mod n)
end.


Введите количество школьников и количество яблок: 19 50
Каждому школьнику достанется яблок: 2
Останется в корзине яблок: 12