bài 1:

Program BTH;
uses crt;
var s,n,i:longint;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        for i:=1 to n do
                s:=s+i;
        writeln('Tong day so tren la: ',s);
        readln;
end.

2.

a=10;

b=15;

3.

Program BTH;
uses crt;
var a: array [1..100] of longint;
    i,n,max:longint;
begin
        clrscr;
        write('Nhap n: '); 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 max<a[i] then max:=a[i];
        writeln('So lon nhat la: ',max);
        readln;
end.

bài 1:

program oken;
uses crt;
var s,n,i:longint;
begin
        clrscr;
        write('nhap n: '); readln(n);
        s:=0;
        for i:=1 to n do
                s:=s+i;
        writeln('Tong S=',s);
        readln;
end.

bài 2:

điều kiện câu lệnh if-then không đúng nên

a=10;

b=15;

bài 3:

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,max:integer;
begin
        clrscr;
        write('nhap so n: '); 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];
        writeln('Max: ',max);
        readln;
end.