*Chương trình tính diện tích hình vuông:

Program hinhvuong;

Uses crt;

Var a: real;

Begin

Clrscr;

Write('Nhap do dai 1 canh cua hinh vuong:');

Readln(a);

Writeln('Dien tich hinh vuong:',a*a);

Readln

End.

*Chương trình tính diện tích hình thang:

Program hinhthang;

Uses crt;

Var a,b,h: real;

Begin

Clrscr;

Write('Nhap lan luot hai day cua hinh thang:');

Readln(a,b);

Write('Nhap chieu cao cua hinh thang:');

Readln(h);

Writeln('Dien tich hinh thang:',(a+b)*h/2:9:2);

Readln

End.

program hinh_vuong;

uses crt;

var a:real;

begin

clrscr;

write('a= ');readln(a);

writeln(dt vuong: ',a*a);

readln;

end.

Mod lưu ý là bạn ý nhờ làm 1 bài nha