a) program a;

uses crt;

var d: integer;

const pi=3.14;

begin

clrscr;

readln(d);

write('Chu vi la = ',d*pi:10:0);

readln

end.

b)

program b;

uses crt;

var a, b, c: integer;

begin

clrscr;

readln(a,b);

c:= (a+b)*2;

write('Chu vi = ', c:10:0);

readln

end.

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.