Uses crt ;

Var Sl,Sc,n,i,x : integer ;

Clrscr ;

Write('Nhap n = ');Readln(n);

Sl := 0 ; Sc := 0 ;

For i := 1 to n do 

Begin 

write('Nhap so ',i );Readln(x);

If x mod 2 = 0 then Sc := Sc + x ;

Else x mod 2 <> 0 Then Sl := Sl = x ;

End;

writeln('Tong le ',Sl);

writeln('Tong chan ',Sc);

REadln

End;

xin câu trả lời hay nhất nhá ( bài này chạy đúng nha );

chỗ in đậm là sửa

thiếu uses 

uses crt;

var i,n,x,S:integer;

begin

writeln('nhap so n:') ; →thiếu ;

readln(n);

S:=0;

for i:=1to n do

begin

writeln('nhap so',i);→câu lệnh này có vẻ sai writeln ('nhap so i');

readln(x);

end;

for i:= cái gì ? 1 to n do begin

if (x mod 2=0) then S:=S+x else ( x mod 2<>0 )then S:=S+X(i);

end;

writeln('tong cac so chan la:'S) trước else không có ; 

else writeln('tong cac so le la:'S) ; thiếu ;

readln;

end.

   bạn ơi , bài này hình như là làm sai rồi , làm lung tung hết cả lên luôn ý . không biết bạn chép từ đâu nhưng tôi đảm bào bạn chạy lên thì cũng không ra được đáp án