import math
while True:
    try:
        s = float(input("Nhập Bán Kính Hình Tròn: "))
        chuvi = 2*math.pi*s
        dientichduongtron = s**2
        dientich = s**2*math.pi
        duongkinh = 2*s
        print("")
        print("Đường Kính =", duongkinh)
        print("Chu Vi =", chuvi)
        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

Bạn tham khảo!

Uses crt;
Var 
    r: real;                                                                          {Khai bao bien}
Const pi=3.14;                                                                {Khai bao hang}
Begin
    clrscr;
    write('Nhap ban kinh hinh tron: '); readln(r);           {Nhap ban kinh}
    writeln('Chu vi: ',(r*2*pi):0:2);                                   {Tinh chu vi}
    writeln('Dien tich: ',(r*r*pi):0:2);                                {Tinh dien tich}
    readln;
End.