Запишите программу Pascal. Известно натуральное число N - количество яблок.
Известно также, что в корзину помещается ровно А яблок. Сколько целых корзин будет заполнено яблоками и сколько яблок останется?

n = int(input())

k = int(input())

print('Количество яблок у каждого школьника = ',k // n)

print('Оставшиеся в корзине яблоки = ',k % n)

Объяснение:

вроде так, я уже давно не сидел за Pascal:3

var

 n:integer;

 a:integer;

begin

 readln(n);

 readln(a);

 writeln('Полных корзинок - '+real(n div a));

 writeln('Оставшиеся яблоки - '+real(n-((n div a)*a)));

end.

Объяснение: