BÀI 4. SỬ DỤNG BIẾN TRONG CHƯƠNGTRÌNHCÂU HỎI VÀ BÀI TẬP

uses crt;

var r: integer; C,S: real;

begin

clrscr;

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

C:=2*Pi*r;

S:=Pi*r*r;

writeln(' Chu vi duong tron bang ',C:8:2);

writeln('Dien tich hinh tron bang ',S:8:2);

end.