Viết chương trình tính diện tích chu vi hình thang với đáy nhỏ đường cao nhập vào từ bàn phím

Tớ cảm ơn

program tinh_hinh_thang;
var
  day_nho, day_lon, chieu_cao, chu_vi, dien_tich: real;
begin
  writeln('Nhap do dai day nho:');  readln(day_nho);
  writeln('Nhap do dai day lon:');
  readln(day_lon);
  writeln('Nhap do dai duong cao:');
  readln(chieu_cao);
  
  chu_vi := day_nho + day_lon + 2*sqrt(power((day_lon - day_nho)/2, 2) + power(chieu_cao, 2));
  dien_tich := (day_nho + day_lon)*chieu_cao/2;
  
  writeln('Chu vi hinh thang la: ', chu_vi:0:2);
  writeln('Dien tich hinh thang la: ', dien_tich:0:2);
  readln;
end.

Ta sử dụng hàm sqrt để tính căn bậc hai và hàm power để tính lũy thừa.