>> Diện tích hình vuông:
program DT_hinh_vuong;
ues crt;
var s, a: real;
begin
clrscr;
writeln('Nhap chieu dai canh cua hinh vuong: '); readln(a);
s:=a*a;
clrscr;
writeln('Dien tich hinh vuong la: ', a*a);
writeln('Dap so: ', a*a);
readln
end.
>> Diện tích hình chữ nhật:
program DT_hinh_chu_nhat;
ues crt;
var s, a, b: real;
begin
clrscr;
writeln('Nhap chieu dai canh a: '); readln(a);
writeln('Nhap chieu rong canh b: '); readln(b);
s:=a*b;
clrscr;
writeln('Dien tich hinh chu nhat la: ', a*b);
writeln('Dap so: ', a*b);
readln
end.
