Bài đây nha
uses crt;
var i, n, t, t1, t2, t3: integer;
BEGIN
Clrscr;
t:=0;
t1:=0;
t2:=0;
t3:=1;
Write('Nhap vao so N: '); readln(n);
Writeln('So N vua nhap la: ',n);
For i:=1 to n do
begin
t:=t+i;
t3:=t3*i;
if i mod 2=1 then
t1:=t1+i;
if i mod 2=0 then
t2:=t2+i;
end;
Writeln('Tong cac so tu 1 den ',n,' la: ',t);
Writeln('Tong cac so le la: ',t1);
Writeln('Tong cac so chan la: ',t2);
Writeln('Tich cac so tu 1 den ',n,' la: ',t3);
Readln;
END.
Tái bút: Mình học lớp 7 đóa nha 😊😊, có đều mình thấy pascal hay quá nên học