Viết chương trình tính diện tích, chu vi của hình chữ nhật, hình tròn, hình bình hành với độ dài các cạnh được nhậ

Program hinh_hoc;

Uses crt;

Var a, b, P, S ,r ,h,St,Pt,Sbh,Pbh: real;

Begin

Clrscr;

Write(‘Nhap chieu dai a = ‘); readln(a);

Write(‘Nhap chieu rong b = ‘); readln(b);

 Write(‘Nhap ban kinh  r = ‘); readln (r);

Write(‘Nhap chiều cao  h = ‘); readln (h);

P := (a + b)*2;

S := a*b;

St:=pi*r*r;

Pt:=pi*r;

Pbh:=(a+b)*2;

Sbh:=a*h;

Writeln(‘Chu vi hinh chu nhat la: ‘, P:2:1);

Writeln(‘Dien tich hinh chu nhat la: ‘, S:2:1);

Writeln(‘Chu vi hinh tròn la: ‘, Pt:2:1);

Writeln(‘Dien tich hinh tron la: ‘, St2:1);

Writeln(‘Chu vi hinh tròn la: ‘, Pbh:2:1);

Writeln(‘Dien tich hinh tron la: ‘, Sbh:2:1);

Readln;

End.