1.

program phuongt;
uses crt;
  var i, s: integer;
begin
       clrscr;
       i:=1;
       s:=0;
       while s<=1000 do
       begin
                s:=s+i;
                i:=i+1;
       end;
       write('Tong = ', s);
       readln
end.

2.

program phuongt;
uses crt;
  var A: array[1..100] of real;
        n, i: integer;
begin
        clrscr;
        write('Nhap so hoc sinh = '); readln(n);
        for i:=1 to n do
        begin
                write('Nhap diem ban thu ', i, ': '); readln(A[i]);
        end;
        for i:=1 to n do writeln('Diem ban thu ', i, ': ', A[i]);
        readln
end.

Bài 1:

program tinh_tong;

uses crt;

var n,s:integer;

begin

      clrscr;

      s:=0;  n:=0;

      while s<=1000 do

            begin

                  n:=n+2;

                  s:=s+n;

            end;

      write('Tong la: ',s,' va khi do da tinh tong ',n,' so chan');

      readln;

end.

Bài 2:

program diemkt;

uses crt;

var diem:array[1..100] of real;

      n,i:byte;

begin

      clrscr;

      write('Nhap so hoc sinh: ');  readln(n);

      for i:=1 to n do

            begin

                  write('Nhap diem ban thu ',i,': ');  readln(diem[i]);

            end;

      writeln('Diem theo thu tu la:');

      for i:=1 to n do writeln(diem[i]:0:2);

      readln;

end.