Program chuvihinhtron_dientichhinhtron;

Uses crt;

Var   R: integer ;

        S,C : real;

Const   Pi=3,14;

Begin

   clrser;

Writeln(‘R= ‘); Readln(R);

C:=Pi*2*R;

S:=Pi*R*R;

Writeln(‘Chu vi la C= ‘,C);

Writeln(‘Dien tich la S= ‘,S);

Readln

End.

program hinhtamgiac;

var a,b,c,cv,dt:real;

readln(a);

readln(b);

readln(c);

if (a+b<=c) or (a+c<=b) or c+b<=a) then

writeln('ko la 3 canh cua 1 tam giac') else

begin

writeln('la 3 canh cua 1 tam giac);

p:=(a+b+c)/2;

cv:=p*2;

dt:=sqrt(p*(p-a)*(pc-));

writeln('chu vi la:', cv:2:2);

writeln(dien tich la:', dt:2:2);

readln;

end.

program Hinh_Chu_Nhat;

uses crt;

var a,b,dt: integer;

begin

readln(a);

readln(b);

dt:=(a*b);

writeln(‘Dien tich la:’,dt);

readln

end.

program hinhvuong;

var a,cv,dt:real;

begin

realn(a);

cv:=a*4;

dt:=a*a;

writeln(chu vi la:', cv:2:2);

writeln(dien tich la:', dt:2:2);

readln;

end.