1.
program phuongt;
uses crt;
var a, b, c: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap c = '); readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then write('Co') else write('Khong');
readln
end.
2.
program phuongt;
uses crt;
var a, b, r, h: real;
begin
clrscr;
write('Nhap a = '); readln(a);
write('Nhap b = '); readln(b);
write('Nhap r = '); readln(r);
write('Nhap h = '); readln(h);
writeln('Dien tich hinh vuong: ', a*a);
writeln('Dien tich hinh chu nhat: ', a*b);
writeln('Dien tich hinh tron: ', r*r*3.14);
write('Dien tich hinh thang: ', ((a+b)*h)/2);
readln
end.
