Source Code Tính Chu Vi Và Diện Tích Hình Tròn 

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
       

mik gửi bạn cả chu vi và diện tích ạ 

program dt;

uses crt;

Var

       a:integer;

Begin

      Clrscr;

      repeat

          readln(a);

      Until (a>0);

      write('Dien tich phan gach cheo: ',(a*a*3.14)/2:5:2);

      Readln;

End.