1) var a,b,s:longint;
begin
write('Nhap CD: '); readln(a);
write('Nhap CR: '); readln(b);
write('Dien tich la: ',a*b);
readln;
end.
2)var a,b,c:longint;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
if (a>b) and (a>c) then write('So lon nhat la: ',a);
if (b>a) and (b>c) then write('So lon nhat la: ',b);
if (c>b) and (c>a) then write('So lon nhat la: ',c);
readln;
end.
3) var i,n,s:longint;
begin
write('Nhap n: ); readln(n);
for i:=1 to n do
s:=s+i;
write('Tong la: ',s);
readln;
end.
5)
var i,n,s:longint;
begin
write('Nhap n: ); readln(n);
for i:=1 to n do
s:=s+(2*i-1);
write('Tong la: ',s);
readln;
end.