"n" школьников делят "к" яблок поровну,неделящийся остаток остается в корзине.сколько яблок достанется каждому и сколько останется в корзине? использовать язык паскаль

Если не ошибаюсь, это она. либо там выведется кол.во яблок каждому ученику.

program ...;
var
n, a, k, y : integer;
begin
readln (y, k);
a:= y mod k
y:= y div k
writeln (a, y);
end.