Viết Chương trình tính diện tích hình thang: VD: Nhap day, chieu cao: Day 1= Day 2= Chieu cao= Diện tích hình thang là :

bài làm 

program Dien_tich_hinh_thang;

uses crt;

var a,b,h: Integer;

            S: Readln;

Begin

clrscr;

writeln('Nhap do dai day 1'); readln(a);

writeln('Nhap do dai day 2'); readln(b);

writeln('Nhap chieu cao'); readln(h);

S:=((a+b)*h)/2;

writeln('Dien tich hinh thang',S);

readln

end.ư

xin hay nhất ạ 

program Dien_tich_hinh_thang;

uses crt;

var a,b,h: Integer;

            S: Readln;

Begin

clrscr;

writeln('Nhap do dai day 1'); readln(a);

writeln('Nhap do dai day 2'); readln(b);

writeln('Nhap chieu cao'); readln(h);

S:=((a+b)*h)/2;

writeln('Dien tich hinh thang',S);

readln

end.