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

import math
while True:
    try:
        s = float(input("Nhập Bán Kính Hình Tròn: "))
        dientichduongtron = s**2
        dientich = s**2*math.pi
        duongkinh = 2*s
        print("")
        print("Đường Kính =", duongkinh)
        print("Diện Tích =", dientich)
        print("Diện Tích Đường Tròn =", dientichduongtron)
        print("")  
    except:
        print("Lỗi Cú Pháp ")
        print('Vui Lòng Kiểm Tra Lại')
        print("Xin Cảm Ơn !!!\n")
        break

uses crt;

var r, s : real;

const pi = 3.14;

begin

clrscr;

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

s := r * r * 3.14;

writeln('dien tich hinh tron = ', s:3:1);

readln

end.