program TinhTongDaySo;

var n, i, s: Integer;

begin
  // Yêu cầu người dùng nhập vào số nguyên n từ bàn phím
  write('Nhap vao n: ');
  readln(n);

  // In ra thông tin dãy số từ 1 đến n
  writeln('Day so tu 1 den ', n, ':');

  // Khởi tạo biến s để tính tổng dãy số
  s := 0;

  // Dùng vòng lặp for để in ra dãy số từ 1 đến n và tính tổng
  for i := 1 to n do
  begin
    write(i, ' '); // In ra dãy số từ 1 đến n
    s := s + i; // Tính tổng dãy số
  end;

  // In ra tổng dãy số
  writeln('Tong day so: ', s);

  // Dừng chương trình để người dùng có thể xem kết quả
  readln;
end.

chỗ program phải là

program Tinh_Tong_Day_So;

program fibonaci;

uses crt;

var f:array[1..100]of integer;

n,i,j:integer;

begin

clrscr;

write('n='); readln(n);

f[1]:=1;

f[2]:=1;

i:=2;

repeat

inc(i);

f[i]:=f[i-1]+f[i-2];

until i=n;

writeln(n,' so fibonaci dau tien la: ');

for i:=1 to n do

write(f[i]:4);

readln;

end.

Var n,sc,sl,i:longint;

Begin

Write('N = ');readln(n);

Write('Cac so tu 1 den ',n,' la ');

For i:=1 to n do

Write(i:8);

Writeln;

For i:=1 to n do

Begin

If i mod 2 = 0 then sc:=sc+i

Else sl:=sl+i;

End;

Writeln('Tong cac so chan la ',sc);

Write('Tong cac so le la ',sl);

Readln

End.

uses crt;

var n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to n do 

  if i mod 2=0 then t:=t+i;

writeln('Tong cac so chan trong khoang tu 1 toi ',n,' la: ',t);

readln;

end.

bạn tham khảo cách làm nha

https://expressmagazine.net/development/3718/pascal-tinh-tong-cua-cac-so-tu-nhien-tu-1-den-n

#include <bits/stdc++.h>

using namespace std;

int n,i,t;

int main()

{

cin>>n;

t=0;

for (int i=1; i<=n; i++) t+=i;

cout<<t;

}

uses crt;

var a:array[1..100]of integer;

i,n,t1,t2,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

randomize;

for i:=1 to n do 

  begin

a[i]:=random(205);

end;

write('Day so vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

t1:=0;

t2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then t1:=t1+a[i]

else t2:=t2+a[i];

end;

writeln('Tong cac so chan la: ',t1);

writeln('Tong cac so le la: ',t2);

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end. 

Program HOC24;

var i,n,s: byte;

begin

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to n do s:=s+i;

write('S = ',s);

readln

end.

Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
        Clrscr;
Writeln(' Phan A ');
                Write(' Ban hay nhap 1 so n bat ky: ');
                Readln(n);
                Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
                        For i:=1 to n do
                                If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
                Write(' Ban hay nhap 1 so m bat ky: ');
                Readln(m);
                        For i:=1 to m do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        S:= S+A[i];
                                End;
                Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
                Write(' Ban hay nhap 1 so d bat ky: ');
                Readln(d);
                Write(' Ban hay nhap so K: ');
                Readln(k);
                        For i:=1 to n do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        If ((A[i] div k)=1)then t:=t+1;
                                End;
                Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.

1:

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,x;

int main()

{

cin>>n;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x==0) dem++;

}

cout<<dem;

return 0;

}

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.