câu 1

Program hinh_chu_nhat_;
Uses Crt;
Var a,b,s,c: real;
Begin
   Clrscr;
   Writeln('Tinh dien tich va chu vi hinh chu nhat:’);
   Writeln(‘Tinh dien tich va chu vi hinh chu nhat‘);
   Write('Nhap chieu dai='); readln(a);
   Write('Nhap chieu rong=');readln(b);
   s:=a*b;
   c:=(a+b)*2;
   Writeln('Dien tich hinh chu nhat la:’,s:6:2);
   Writeln('Chu vi hinh chu nhat:',c:6:2);
   Readln;
End.

câu 2

Program HINHTRON;
Uses Crt;
Var r,dt,cv:real;
Begin
Clrscr;
Writeln('tinh dien tich va chu vi hinh tron');
Writeln('tinh dien tich va chu vi hinh tron');
Write ('Nhap ban kinh R='); readln(r);
dt:=pi*r*r;
cv:=2*pi*r;
Writeln('Dien tich hinh tron la:',dt:6:2);
Writeln('Chu vi hinh tron la:',cv:6:2);
Readln;
End.