- Chọn kiểu dữ liệu :
+ cv = 2 * r * π
+ s = r * r * π
+ π ≈ 3.14 là một số thực
⇒ 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;
begin
clrscr;
write('nhap ban kinh r : '); readln(r);
cv := 2 * r * 3.14;
s := r * r * 3.14;
writeln('chu vi = ', cv : 2 : 3);
writeln('dien tich = ', s : 2 : 3);
readln
end.