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.