Question

Dịch giúp mik ik

Answer 1

uses crt;

var r,cv,dt: real;

const pi=3.14;

begin

clrscr;

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

cv:=2*pi*r;

writeln('Chu vi= ',cv:0:2);

dt:=pi*r*r;

writeln('Dien tich= ',dt:0:2);

readln;

end.