program Hinh_tron;
uses crt;
var r,s,cv:real;
Begin
    clrscr;
    write ('Nhap ban kinh R= ');readln(r);
    s:=pi*r*r;
    cv:=2*pi*r;
    writeln('Dien tich hinh tron la: ',s:2:2);
    writeln('Chu vi hinh tron la: ',cv:2:2);
    readln;
End.

- Chọn kiểu dữ liệu thích hợp cho biến r, cv và s : 

+ Công thức tính chu vi : cv = 2 * r * π

+ Công thức tính diện tích : s = r * r * π

+ π ≈ 3.14 là một số thực

⇒ Số thực hoặc nguyên nhân với số thực sẽ ra số thực

⇒ Biến r có thể khai báo là số thực hoặc số nguyên

⇒ Biến cv và s cũng thuộc kiểu số thực

- Viết chương trình :

uses crt;

var r, cv, s : real;

const pi = 3.14;

begin

clrscr;

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

cv := 2 * r * pi;

s := r * r * pi;

writeln('chu vi = ', cv : 2 : 1, ', dien tich = ', s : 2 : 1);

readln

end.