program ct;
uses crt;
var N,i,TC,TL: integer;
    a:string;
    i_mang: array [1..5] of byte;
begin
    clrscr;
    TC:=0; TL:=0;
    for i:=1 to 5 do
        begin
        writeln('Nhap so thu ',i); readln(i_mang[i]);
        if (i_mang[i] mod 2) = 0 then
            TC:=TC+i_mang[i]
        else
            TL:=TL+i_mang[i];
        end;
    writeln;
    writeln('Tong cac so chan: ',TC);
    writeln('Tong cac so le: ',TL);
    readln;
end.

_______________________

#Duahauvn

program bai_Giai;

uses crt;

var a:array[1..5]of longint; i,sl,sc:longint;

begin

clrscr;

sc:=0;

sl:=0;

for i:=1 to 5 do readln(a[i]);

for i:=1 to 5 do 

begin

write(a[i],' ');

if(a[i] mod 2=0)then sc:=sc+a[i] else sl:=sl+a[i];

end;

writeln('tong cac chu so le la:',sl);

writeln('tong cac chu so chan la:',sc);

readln;

end.