uses crt; var a,b,c,h:longint; begin clrscr; write('Nhap a: ');readln(a); write('Nhap b: ');readln(b); write('Nhap c: ');readln(c); write('Nhap h: ');readln(h); if (a+b>c)and(a+c>b)and(b+c>a) then begin writeln('Chu vi: ',a+b+c); writeln('Dien tich: ',(a*h)/2:0:2); end else writeln('Day khong la tam giac'); readln end.
program baitap; uses crt; var a,b,c,h:real; begin clrscr; write('Nhap vao a = ');readln(a); write('Nhap vao b = ');readln(b); write('Nhap vao c = ');readln(c); write('Nhap vao chieu cao = ');readln(h); writeln('Chu vi tam giac = ',a+b+c:0:2); writeln('Dien tich tam giac = ',(a*h)/2:0:2); readln; end.
