Bài 1 :
Program TAM_GIAC;
    uses crt;
    var a,b,c,d,p,S: real;
    Begin
    clrscr;
    Write('Nhap canh a:');readln(a);
    Write('Nhap canh b:');readln(b);
    Write('Nhap canh c:');readln(c);
    d:=a+b+c
    p:=(a+b+c)/2;
    S:=sqrt(p*(p-a)*(p-b)*(p-c));
    Write('Chu vi tam giac la:',D:10:2);
    Write('Dien tich tam giac la:',s:10:2);
    readln
    end.

@Trịnh Quang Đức bạn ơi tính chu vi nữa mà? copy mà không nhìn à?

Program hinh_thang;
uses crt;
var a,b,c,S: real;
Begin
clrscr;
Write('Nhap day be a:');readln(a);
Write('Nhap day lon b:');readln(b);
Write('Nhap chieu cao c:');readln(c);
S:=(a+b)*c/2
Write('Dien tich hinh thang la:',s:10:2);
readln
end.

Ad ơi bạn Trịnh Quang Đức bài 1 làm thiếu phần chu vi vẫn được cộng điểm ạ? Còn em có đầy đủ sao không được cộng ạ

2/ Trả lời
Program Dien_tich_hinh_thang;
Uses crt;
Var a,b,c:integer;
Begin
   clrscr;
   write('nhap do dai cua day lon :');
   readln(a);
   write('nhap do dai cua day nho :');
   readln(b);
   write('nhap do dai cua chieu cao :');
   readln(c);
   writeln('tong hai canh day');
   writeln(a,'+',b,'=',a+b);
   writeln('tong hai canh day nhan voi chieu cao');
   writeln(a+b,'*',c,'=',(a+b)*c);
   writeln('dien tich hinh thang');
   writeln((a+b)*c,'/',2,'=',((a+b)*c)/2:5:2);
   readln;
End.

Z câu nào đúng z m ban nói mk zs