Viết chương trình (free passcal) a) tính chu vi hình tròn và b) hình chữ nhật ai

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.