program dieta;
    var svoris, liko, i : integer;
        gr : array[1 .. 1000] of integer;
begin
//pradines reiksmes
svoris := 0;
liko := 0;
 
//nuskaitom svorius
  WriteLn('Labas, prasau ivesti 6 pirageliu svorius paeiliui');
    for i:=1 to 6 do read(gr[i]);
 
//tikrinam kiek suvalge ir kiek svere suvalgyti
   for i:=1 to 6 do
        begin
            if ( gr[i] < 50 ) then svoris := svoris + gr[i] else liko := liko + 1;
    end;
 
//isvedam informacija
 
writeln('Mergaite suvartojo ', svoris, ' gramu saldumynu. Vakarui pasiliko ', liko,' bandeles');
  Readln;
 Readln;
 Readln;
end.