Viết chương trình tính diện tích hình chữ nhật, tam giác, hình bình hành, hình thang trong pascal

* Tính diện tích hình chữ nhật

program dthcn;

var 

a, b, c : integer;

begin

Write ('Nhap chieu dai:'); read (a);

Write ('Nhap chieu rong:'); read (b);

s := a * b;

Write ('Dien tich hinh chu nhat la:',s);

Readln

End.

* Tính diện tích hình thang

program dtht;

var

a, b, h:Integer;

s:real;

begin

Write('Nhap day lon:');readln(a);

Write('Nhap day nho:');readln(b);

Write('Nhap chieu cao:');readln(h);

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

WriteLn ('Dien tich hinh thang la:',s);

readln

end.

* Tính diện tích tam giác

program dttg;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := 1/2 * a * h;

Write ('Dien tich tam giac la:',s);

Readln

End.

* Tính diện tích hình bình hành

program dthbh;

var

a, h : integer;

s : real;

begin

Write ('Nhap chieu cao:'); read (h);

Write ('Nhap day:'); read (a);

s := a * h;

Write ('Dien tich hinh binh hanh la:',s);

Readln

End.

 * Tính diện tích hình tròn

program dthtr;

const 

pi=3.14;

var

r:Real;

s:Real;

begin

Write('Nhap ban kinh:'); readln(r);

s:=r*r*pi;

write('Dien tich hinh tron:',s);

readln

end.