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

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

(Программу писал сам)