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.
Bergas gavo reakciją nuo satrops Free pascal uzduotis