a)Viết chương trình nhập vào từ bàn phím hai số nguyên a và bin ra màn hình số lớn hơn b)Viết chương trình tính tổng các số tự nhiên từ 1 đến n với n nhập vào từ bàn phím

a) 

program Min;
uses crt;
var a,b:integer;
begin
   clrscr;
   write('Nhap a,b: '); readln(a,b);
   if a>b then write(a,' lon hon ',b) else
   if a<b then write(a,' nho hon ',b) else write(a,' bang ',b);
   readln
end.

b)

program Min;
uses crt;
var i,n,S:integer;
begin
   clrscr;
   S:=0;
   write('Nhap n: '); readln(n);
   for i:=1 to n do S:=S+i;
   writeln('Tong la: ',S);
   readln
end.

a)

Program BTT;
Uses crt;
Var a,b: longint;
Begin
        Clrscr;
        Write('Nhap a va b: '); Readln(a,b);
        If a>b then Write(a,' lon hon ',b)
        Else If a<b then Write(b,' lon hon ',a)
        Else Write('Bang nhau');
        Readln
End.

b)

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do s:=s+i;
        Write('S = ',s);
        Readln
End.