B1:
Uses Crt;
Var i,n,S:integer;
Begin
Clrscr;
Write('Nhap N= '); Readln(n);
S:=0;
For i:= 1 to n do S:=S+i;
Write('Vay tong cua day so tu 1 den ' ,n,' la: ',S);
Readln
End.
B2.1: Kiểu mảng real:
 Uses Crt;
Var a:array[1..1000] of integer;
max,i,n:integer;
Begin
Clrscr;
Repeat
Write('Nhap so ptu N vao: '); Readln(n);
Until n>0;
For i:= 1 to n do
Begin
Write('Nhap a[',i,'] vao:'); Readln(a[i]);
End;
max:=a[i];
Write('So lon nhat trong day so la: ',max);
Readln
End.
B2.2: Kiểu mảng fake
 Uses Crt;
Var max,X,i,n:integer;
Begin
Clrscr;
Repeat
Write('Nhap so ptu N vao: '); Readln(n);
Until n>0;
For i:= 1 to n do
Begin
Write('Nhap X',i,' vao:'); Readln(X);
End;
max:=X;
Write('So lon nhat trong day so la: ',max);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!! Đa tạ ;33
*p/s: Hỏi và đáp, comment bên dưới

Câu 1:

program Cau_1;

uses crt;

var n,i,T: integer;

Begin

         clrscr;

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

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

         write('Tong cac so tu 1 den ',n,' = ',T);

         readln

End.

Câu 2:

program Cau_2;

uses crt;

var A:array [1..500] of integer;

      n,i,max: integer;

Begin

         clrscr;

         write('Nhap so phan tu: '); readln(n);

         max:=1;

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

                  if max<A[i] then max:=A[i];

         end;

         write('So lon nhat: ',max);

         readln

End.