«дележ яблок» условие 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