Viết chương trình tính diện tích hình tròn. Biết rằng bán kính được nhập vào từ bàn phím

Program tinh_dt;

Uses crt;

Var S, r : real;

Begin 

Writeln (‘Nhap ban kinh r=’); 

Readln (r);

S:= r*r*3.14;

Writeln (‘Dien tich hinh tron la:’, S:7:2);

Readln

End.