1) 
uses crt;
var    a,b,c: real;
begin
clrscr;
writeln ('Nhap do dai canh thu nhat:');
readln (a);
writeln ('Nhap do dai canh thu hai:');
readln (b);
writeln ('Nhap do dai canh thu ba:');
readln (c);
If (a+b>c) and (a+c>b) and (b+c>a) then
writeln ('a,b,c la 3 canh cua tam giac')
else writeln (a,b,c khong la 3 canh cua tam giac');
readln;
end.
2)

Bước 1: nhập các số a1,a2,...,an

Bước 2: Max ← a1 và i ← 1

Bước 3: Nếu ai > Max, gán Max ← ai

Bước 4: i ← i + 1

Bước 5: nếu i ≤ n, quay lại bước 2

Bước 6: thông báo giá trị Max và kết thúc thuật toán