N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику? НАПИСАТЬ ПРОГРАМУ ДЛЯ ПАСКАЛЯ

Ну вот  var  n,k: integer;  begin    write('Введите количество школьников: ');    readln(n);    write('Введите количество яблок: ');    readln(k);    writeln('Каждому школьнику достанеться ', trunc (k/n));    writeln('В корзине останеться ', k mod n);end. (Программу писал сам)