Câu 1:
program C;
uses crt;
var s,n,i:integer;
begin
      clrscr;
      write('Nhap n: '); readln(n);
      for i:=1 to n do s:=s+i;
      write('Tong: ',s);
      readln;
end.
Câu 2:
program C;
uses crt;
var s,i:integer;
begin
      clrscr;
      s:=1;
      for i:=1 to 30 do s:=s*i;
      write('Tich: ',s);
      readln;
end.
Câu 3:
program C;
uses crt;
var a:array[1..100] of integer;
      s,i,n,max:integer;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('a[',i,']: '); readln(a[i]);
            end;
      max:=a[1];
      for i:=2 to n do if a[i]>max then max:=a[i];
      write('GTLN: ',max);
      readln;
end.

Câu 1:

Program Hello;

var n:longint;

begin

    readln(n);

    writeln((n*n+n) div 2);

readln;

end.

Câu 2:

Tích các số tự nhiên liên tiếp bắt đầu từ 1 là giai thừa. Nên kết quả lả rất lớn. Nên dùng kiểu dữ liệu lớn hơn để tính.

Program Hello;

var p:qword;

    i:byte;

begin

    for i:= 1 to 30 do

        p:= p * i;

    writeln(p);

readln;

end.

Câu 3

Thay vị nhập mảng sau đó mới tìm thì ta vừa nhập vừa tìm.

Program Hello;

var n,i:longint;

      a:array[1..100000] of longint;

begin

    readln(n);

    for i:= 1 to n do

        begin

            read(a[i]);

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

        end;

    writeln(max);

readln;

readln;

end.