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

var
n,k:integer;

begin
writeln('Введите кол-во школьников: ');
read(n);
writeln('Сколько яблок у них? ');
read(k);
writeln('Каждый школьник получит ',k div n,' яблок(у)');
end.