chương trình pascal
Program     Bai_1;
Var             S, P, a, b: Real;
Begin
                  Writeln ('Nhap vao chieu dai, chieu rong cua hinh chu nhat');
                  Readln (a, b);
                  S:= a*b;
                  P:= (a+b)*2;
                  Writeln ('Dien tich =', S:6:2, 'chu vi =', P:6:2);
                  Readln
End.



program CV_DT_hinh_vuong;
Var    a:Integer;
     S,C:Read;
Begin
    Writeln('Canh cua hinh vuong la');
    Readln(a);
    S:=a*a;
    C:=a*4;
    Writeln('Dien tich hinh vuong la',S);
    Writeln('Chu vi hinh vuong la',C);
    Readln
    End.



program cv_dt_hinhtron1;
uses crt; var r,cv,dt:real;
begin clrscr;
write('Nhap ban kinh hinh tron:');
readln(r); cv:=2*r*pi; dt:=pi*r*r;
writeln('Chu vi hinh tron:',cv:5:2);
write('Dien tich hinh tron:',dt:5:2);
readln;
end.