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

Program sh;var n,k: integer;beginwrite('введите кол-во школьников: ');readln(n);write('введите кол-во яблок: ');readln(k);writeln('останется в корзинке: ', k mod n);writeln('достанется каждому по ', k div n);end.