Viết chương trình con tính diện tích và chu vi hình tròn

program chuvi_dientich;

uses crt;

var r:real;

{—Ham-chu-vi—}

function C(r:real):real;

begin

      C:=2*3.14*r;

end;

{—Ham-dien-tich—}

function S(r:real):real;

begin

      S:=3.14*r*r;

end;

{—Chuong-trinh-chinh—}

BEGIN

      clrscr;

      write(‘Nhap ban kinh: ‘);  readln(r);

      writeln(‘Chu vi hinh tron la: ‘,C(r));

      writeln(‘Dien tich hinh tron la: ‘,S(r));

      readln;

end.