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

varn, k: integer;beginreadln(n);readln(k);writeln('В корзине останется ', k mod n,' яблок');writeln('Каждый получит по ', k div n,' яблок');end.