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

À, mik gửi nhầm, bạn report mik giúp nha

program bai_giai;
uses crt;
var n:longint;s:real;
begin
clrscr;
write('nhap so cay but can mua:');readln(n);
s:=n*5;
write('tong so tien can mua ',n,' cay but la:',s:4:3,' dong');
readln
end.