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  

- Viết các lệnh :

- Nhập vào số tự nhiên N, In ra màn hình số tự nhiên vừa nhập 

+ readln(N); write(N);

- In ra màn hình tổng N số tự nhiên đầu tiên :

+ S := 0; for i := 1 to N do S := S + i; write(S);

- In ra màn hình tổng các số lẻ của N số tự nhiên đầu tiên :

+ S := 0; for i := 1 to N do if i mod 2 <> 0 then S := S + i; write(S);

- In ra màn hình tổng các số chẵn của N số tự nhiên đầu tiên :

+ S := 0; for i := 1 to N do if i mod 2 = 0 then S := S + i; write(S);

- In ra màn hình tích từ 1 đến N

+ S := 1; for i := 1 to N do S := S * i; write(S);