ZygisN parašė:
Pirkdami bilietus į koncertą iš anksto klausytojai moka po 5 litus, o paskutinę dieną – po 8
litus. Žinoma, kad iš viso parduota bilietų už n litų, iš kurių p surinkta paskutinę dieną.
Parašykite programą, kuri suskaičiuotų, kiek klausytojų buvo koncerte.

-----------
Orientuokis pagal šitus skaičius:

Jeigu išviso parduota už 1000lt (paskutine diena buvo parduota už 400), tai išviso buvo 170 klausytojų.

program Noname5;
var n, p, s, ats, last, viso: integer;
begin
  Write('Gauta litu: ');
  Read(n);
  Write('Paskutine diena suringta litu: ');
  Read(p);
  last:= p div 8;
  s:= n - p;
  ats:= s div 5;
  viso:= ats + last;
  Write(viso);
  Readln;
end.