<Pascal> Các cậu giúp tuii với ạ:3

Câu 1:

program Tong;
var
  n, i, sum: integer;
begin
  write('Nhap vao so n: ');
  readln(n);

  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + i;
  end;

  writeln('Tong tu 1 den ', n, ' la: ', sum);
  readln;
end.

Câu 2:

program Diem;
uses crt;
var
  N, i: integer;
  diem: array[1..100] of integer;
begin
  clrscr;
  write('Nhap so hoc sinh N: ');
  readln(N);
  for i := 1 to N do
  begin
    write('Nhap diem cua hoc sinh thu ', i, ': ');
    readln(diem[i]);
  end;
  writeln('Cac diem vua nhap la:');
  for i := 1 to N do
  begin
    writeln('Diem cua hoc sinh thu ', i, ': ', diem[i]);
  end;
  readln;
end.