Anonymous

program duona;
//this program calculates the amount of bread usage in n number of cities
//there are 4 classes of bread usage:
//           children up to 5 yrs old
//           from 5 to 10 yrs old children
//           people up to 75 yrs old
//           older than 75 yrs old people

var NoCities, D1, D2, D3, D4, allbread, i: integer;
begin

  writeln('Iveskite Skaiciu miestu kuriu duonos kieki reikia apskaiciuoti');
  readln(NoCities);
  allbread:= 0;
  for i := 1 to NoCities do
     begin
       writeln('Iveskite ', i, '-ojo miesto duonos vartojimo kiekius');
       writeln('Iveskite vaiku iki 5 metu duonos suvartojima mieste');
       readln(D1);
       writeln('Iveskite vaiku nuo 5 iki 10 metu duonos suvartojima mieste');
       readln(D2);
       writeln('Iveskite zmoniu nuo 10 iki 75 metu duonos suvartojima mieste');
       readln(D3);
       writeln('Iveskite zmoniu iki 75 metu duonos suvartojima mieste');
       readln(D4);
       allbread:= allbread + D3 + D2 + D3 + D4;
     end;
   writeln('Isviso siuose miestuose suvartojama ', allbread, ' tonu duonos');
   read;
end.
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~                                                                                                                                                            
~