Reikia pagalbos su pascal

Švęsdamas septintąjį gimtadienį Andrius gavo n balionų. Su draugais nusprendė balionus paleisti į

dangų. Tačiau juos pučiant k balionų sprogo. Likusius balionus Andrius pasidalino su d draugais po

lygiai. Jeigu dalinant balionus visiems po lygiai jų liko, tai juos pasiėmė Andrius. Po kiek balionų m

gavo kiekvienas draugas ir kiek balionų a teko Andriui? Parašykite programą šiam uždaviniui spresti

Pasitikrinkite: kai n = 77, d = 7 ir k = 3, tai kiekvienas draugas gavo po m = 9 balionus, o

Andriui teko a = 14 balionų. Reikėtų sprendimo dėkui.

Šita uždavini aš ir buvau gaves, kai mokykloj mokiaus. :D

program balionai;
var n,k,d,b,m,a, viso_vaiku : longint;

begin
 Write('Kiek ið viso gavo balionø? '); Readln(n);
 Write('Kiek balionø sprogo? '); Readln(k);
 Write('Kiek buvo draugø? '); Readln(d);

 b  := n - k;
 viso_vaiku := d + 1;
 m := b div viso_vaiku;
 Writeln('Draugam teko po: ',m,' balionus.');
 a := b - (m * d);
 Writeln('Andriui teko: ',a,' balionai.');
 Readln;
end.

Nežinau, Andriui turi likt 11 balionų, net matematiškai paskaičiavus, nebent reik jam pridėt ir susprogusius balionus. Jeigu taip, tai tada

a := b - (m * d);

pakeisk į:

a := b - (m * d) + k;