program chungminh;
uses rt;
var sbc,sc,thuong:integer;
begin
clrscr;
write('Nhap so bi chia: '); readln(sbc);
write('Nhap so chia: '); readln(sc);
thuong:=0;
while sbc>=sc do
begin
inc(thuong);
sbc:=sbc-sc;
end;
writeln('Thuong la: ',thuong);
writeln('So du la: ',sbc);
{so du la sbc, sau khi tru xong thi sbc luon be hon sc va do la phan con lai khong chia het}
readln
end.