a) Propram CV_HT;
Uses Crt;
Var C : real;
r : integer;
Const pi = 3.14;
Begin
Clrscr;
Readln (r);
C : = r * 2 * pi;
Writeln ( 'Chu vi hinh tron la:' , C : 6 : 2 );
Readln
End.
b) Propram HCN;
Uses Crt;
Var a , b : integer;
C : integer;
Begin
Clrscr;
Write ( 'Nhap chieu dai:' );
Readln (a);
Write ( 'Nhap chieu rong:' );
Readln (b);
C : = ( a + b ) * 2;
Writeln ( 'Chu vi hinh chu nhat:' , C );
Readln
End.