Free pascal uzduotis

Prasau padeti paaiskinti uzdavini freepascal:

Andrius septintojo gimtadienio proga gavo n balionų. Su draugais nusprendė balionus paleisti į dangų. Dalis pučiamų balionų k sprogo. Likusius balionus Andrius pasidalijo su d draugais po lygiai. Jeigu po dalybų dar liko balionų, tai juos pasiėmė Andrius. Po kiek balionų m gavo kiekvienas draugas ir kiek balionų a teko Andriui? Parašykite programą šiam uždaviniui spręsti.

Pasitikrinkite. Kai n = 77, d = 7 ir k = 3, tai kiekvienas draugas gavo po m = 9 balionus, o Andriui teko a = 11 balionų.

As nenoriu kad jus tiesiog issprestumete sita uzdavini, man reikia kad ji kasnors paaiskintu, labai prasau jusu pagalbos paaiskinti si uzdavini, dekui is anksto!

Na, susirandi kiek balionų liko, po sprogimo, tai n - k (77 - 3).

Tada susirandi kiek balionų kiekvienas gavo, tai tai balionų skaičių dalini iš draugų skaičius ir gauni tik sveikąją dalį. (n - k) div d

Susirandi kiek Andrius gavo, tai susirandi liekaną ir pridedi prie padalinto balionų skaičiaus. ((n - k) div d) + ((n - k) mod d)

Na, susirandi kiek balionų liko, po sprogimo, tai n - k (77 - 3).

Tada susirandi kiek balionų kiekvienas gavo, tai tai balionų skaičių dalini iš draugų skaičius ir gauni tik sveikąją dalį. (n - k) div d

Susirandi kiek Andrius gavo, tai susirandi liekaną ir pridedi prie padalinto balionų skaičiaus. ((n - k) div d) + ((n - k) mod d)

nu supratau ta uzdavini, dekui :) bet man yra problema, kaip reikia programa parasyti nuo 0 , taip man problemos prasideda, niekados neparasau programos :(

Tai mėgink, o čia gali pateikt konkrečius klausimus. Kas nors padės tikrai. :) Galbūt ir pamėginčiau užvest Tave ant kelio, bet paskalio nemoku, tik c++:)

program Balionai;
var n,          // Išviso kiek buvo balionų.
   k,          // Kiek balionų sprogo.
   d,          // Draugų skaičius.
   a,          // Kiek balionų teko Andriui.
   m :integer; // Po kiek balionų gavo kiekvienas draugas.
begin
 WriteLn('Įvesk kiek išviso buvo balionų:');
 ReadLn(n);
 WriteLn('Įvesk kiek balionų sprogo:' );
 ReadLn(k);
 WriteLn('Įvesk draugų skaičių:');
 ReadLn(d);
 a := ((n-k) div (d+1))+((n-k) mod (d+1));
 m := (n-k) div (d+1);
 WriteLn('Andriui teko ',a,' balionai.');
 WriteLn('Kiekvienas draugas gavo po ',m,' balionus.');
 Readln;
end.