program alpha;
var skc1,skc2,a,kart1,kart2:integer;
begin
skc1:=0;kart1:=0;
skc2:=0;kart2:=0;
WriteLn('INFORMACIJA: Ivede skaiciu "0" baigsite sumos skaiciavima. Iveskite skaicius didesnius nei 0');
Write('Iveskite skaiciu   ');Readln(a);
while a<>0 do begin
    if  (a mod 2)=0 then
    begin skc1:=skc1+a;Writeln('Tarpine lyginiu skaiciuku suma = ',skc1);kart1:=kart1+1;Write('Ivesk skaiciu  ');ReadLn(a);end
    else if (a mod 2)<>0 then
    begin skc2:=skc2+a;Writeln('Tarpine nelyginiu skaiciuku suma = ',skc2);kart2:=kart2+1;Write('Ivesk skaiciu  ');ReadLn(a);end;
    end;
WriteLn('');
WriteLn('');
WriteLn('Lyginiu skaiciu suma lygi ', skc1);
WriteLn('Nelyginiu skaiciu suma lygi ', skc2);
WriteLn('Visu skaiciu suma lygi ', (skc1+skc2));
WriteLn('');
WriteLn('Lyginiai skaiciai pasikartojo ', kart1,' kartu');
WriteLn('Nelyginiai skaiciai pasikartojo ', kart2,' kartu');
Readln;
end.