viết chương trình Pascal tính chu vi diện tích hình tròn và hình chữ nhật. giúp mink vs ạ!

* Với bán kính r thuộc hình tròn , ta có :

- Chu vi hình tròn : \(r.\ 2.\ \pi\)

- Diện tích : \( r.\ r. \pi\)

- Trong đó : \(\pi≈3,14\)

⇒ Code :

program CV_S_Hinh_tron ;
  uses crt;
    var r , cv, s : real ;
  const pi = 3.14 ;
begin
    clrscr;
    write('Nhap ban kinh: '); readln(r);
    cv := r * 2 * pi ;
    s := r * r * 3.14 ;
    writeln('Chu vi: ',cv:3:1);
    writeln('Dien tich: ',s:3:1);
    readln ;
end .

* Với 2 cạnh a, b thuộc hình chữ nhật, ta có

- Chu vi : \( (a+b).\ 2 \)

- Diện tích : \(a.\ b\)

⇒ Code :

program CV_S_Hinh_CN ;
  uses crt;
    var a, b, cv, s : real ;
  const pi = 3.14 ;
begin
    clrscr;
    write('Nhap canh a: '); readln(a);
    write('Nhap canh b: '); readln(b);
    cv := (a+b)*2 ;
    s := a * b  ;
    writeln('Chu vi: ',cv:3:1);
    writeln('Dien tich: ',s:3:1);
    readln ;
end .