ý 1:
program ct;
uses crt;
var a,b,cv,dt:integer;
begin
clrscr;
write('nhap chieu dai=');readln(a);
write('nhap chieu rong=');readln(b);
cv:=(a+b)*2;
dt:=a*b;
writeln('chu vi hinh chu nhat la',cv);
writeln('dien tich hinh chu nhat la',dt);
readln
end.
Ý 2:
program ct;
uses crt;
var a,cv,dt:integer;
begin
clrscr;
write('nhap canh='); readln(a);
cv:=a*4;
dt:=a*a;
writeln('chu vi hinh vuong la',cv);
writeln('dien tich hinh vuong la',dt);
readln
end.
Ý 3:
program ct;
uses crt;
const pi=3.14;
var cv,dt,r:real;
begin
clrscr;
write('nhap ban kinh='); readln(r);
cv:=2*r*pi;
dt:=sqr(r)*pi;
writeln('chu vi hinh tron la=',cv:4:2);
writeln('dien tich hinh tron la=',dt:4:2);
readln
end.