uses crt; var t,hs:integer; begin clrscr; write('Nhap so hoc sinh: ');readln(hs); write('Nhap so qua tao: ');readln(t); writeln('So tao moi ban nhan duoc la: ',t div hs); writeln('So tao con du la: ',t mod hs); readln; end.
uses crt; var qt,hs,n,d:longint; begin clrscr; write('Nhap so hoc sinh: ');readln(hs); write('Nhap so qua tao: ');readln(qt); n := qt div hs; d := qt mod hs; writeln('So tao moi ban nhan duoc la: ',n); writeln('So tao con du la: ',d); readln end.
