program baitap; uses crt; var r:real; begin clrscr; write('Nhap vao ban kinh = ');readln(r); writeln('Chu vi cua hinh tron = ',2*r*pi:0:2); writeln('Dien tich cua hinh tron = ',r*r*pi:0:2); readln; end.
Program Typlex ; Uses crt ; Var r: real ; Begin Writeln('Nhap vao ban kinh = ') ;readln(r) ; Writeln('Chu vi cua hinh tron = ', r*2*pi:0:2) ; Writeln('Dien tich cua hinh tron = ', r*r*pi:0:2) ; Readln
