program HINHTRON;

uses Crt;

var r,a,dt,cv,dt2,cv2:real;

begin

    clrscr;

    writeln('Hinh tron');

    write ('Nhap ban kinh R= ');readln(r);

    dt:=pi*r*r;

    cv:=2*pi*r;

    writeln('Dien tich hinh tron la: ',dt:2:2);

    writeln('Chu vi hinh tron la: ',cv:2:2);

    writeln;

    writeln('Hinh vuong');

    write('Nhap canh: ');readln(a);

    dt2:=a*a;

    cv2:=a*4;

    writeln('Dien tich hinh vuong: ',dt2:2:2);

    writeln('Chu vi hinh vuong: ',cv2:2:2);

    readln;

End.

program bt;

uses Crt;

Var

           a,r:integer;

begin

    clrscr;

     Write('Nhap canh hinh vuong: '); readln(a);

     writeln('Chu vi hinh vuong la: ',a*4);

     writeln('Dien tich hinh vuong la: ',a*a);

     write('Nhap ban kinh hinh tron: '); readln(r);

    writeln('Chu vi hinh tron la: ',*r*3,14:5:2);

     write('Dien tich hinh tron la:', r*r*3,14:5:2);

     Readln;

End.