+diện tích hình vuông:

program dientich; 
uses crt; 
var S,a:integer; 
begin 
writeln('nhap a'); 
readln(a); 
S:=a*a; 
writeln('ketqua',S); 
readln; 
end.

diện tích hình chữ nhất:

program Hinh_Chu_Nhat;

uses crt;

var a,b,S,: integer;

begin

writeln(‘Nhap_chieu_dai:’);

readln(a);

writeln(‘Nhap_chieu_rong:’);

readln(b);

S:=(a*b);

writeln(‘Dien tich la:’,S);

readln

end.

cho mik xin hay nhất nhé

$#QLinkVNxWCDI$

Ta có cấu trúc chương trình như sau:

1) Tính diện tích hình chữ nhật:

program hcn_qlink;

uses crt;

var: a,b: integer;

begin

clrscr;

writeln('Vui long nhap gia tri cua do dai lon hon do dai chieu rong');

writeln('Nhap do dai chieu dai: '); readln(a);

writeln('Nhap do dai chieu rong: '); readln(b);

writeln("Dien tich hinh chu nhat nay la: ',a*b);

readln;

end.

2) Tính diện tích hình vuông:

program hv_qlink;

uses crt;

var a:integer;

begin

clrscr;

writeln('Nhap do dai cua canh trong hinh vuong: '); readln(a);

writeln('Dien tich cua hinh vuong tren la: ',a*a);

readln;

end.