Viết chương trình tính diện tích hình tròn với bán kính (R) nhập vào từ bàn phím. Biết công thức tính diện tích hình tròn: S = pi.R2, trong đó: pi = 3,14.

Program Hinh_tron;
Uses crt;
Var r, S : real;

Const pi = 3.14;
Begin
Clrscr;
Write ('Nhap ban kinh hinh tron: ');Readln (r);
S := r*r*pi;
Writeln('Dien tich hinh tron la :', S:8:2);
Readln
End.