program Hinh_tron;
uses crt;
var r,dt,cv:real;
const pi=3.14;
Begin
    clrscr;
    write ('Nhap ban kinh R= ');readln(r);
    dt:=pi*r*r;
    cv:=2*pi*r;
    writeln('Dien tich hinh tron la: ',dt:6:2);
    writeln('Chu vi hinh tron la: ',cv:6:2);
    readln;
End.

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
       
bonus bạn kq code trong ảnh