Mình viết lại nguyên chương trình nha

Program abc;

uses crt;

var C,r: real;

  const Pi=3.14;

begin

clrscr;

writeln('Nhap ban kinh hinh tron:'); readln(r);

C:= r*2*Pi;

writeln('Ket qua la:',C:4:2);

readln

end.

 Chương trình của mình nha có sai sót gì thì nói mình

Chúc bạn học tốt!

1)      var Pi, R, P : Real ;
2)      Begin
3)      Writeln ('Nhap ban kinh'); Readln (a);
4)      Writeln ('Nhap do dai chieu dai'); Readln(b);
5)      P :=2*Pi*R ;
6)      Writeln('Nhap so Pi :', P);
7)      Readln
8)      End.

******************************************************

- Công thức tính chu vi hình tròn : 2*pi*r;

- Công thức tính diện tích hình tròn : r*r*pi;

- Pi là hằng số có giá trị không đổi : 3.1416  ta có thể khai báo Pi là hằng : const pi = 3,14; giá trị   của  pi sẽ cố định không thay đổi được trong quá trình tính toán 

*****************************************************

* Lỗi :

- Dòng 3 : biến a không có trong khai báo  

- Dòng 4 : biến b không có trong khai báo 

- Dòng 6 : câu lệnh sai vị trí 

******************************************************

* Sửa lỗi chương trình :

var pi, r, p : real;

begin

writeln('nhap ban kinh :');readln(r);

writeln('nhap so pi :');readln(pi);

p := 2*pi*r;

writeln('chu vi hinh tron la :', p);

readln

end.

**********************************************

* Viết chương trình theo kiểu khai báo hằng pi

program sksk;

uses crt;

var c, r : real;

const pi = 3.14;

begin

clrscr;

write('nhap ban kinh r :');readln(r);

c := 2*pi*r;

writeln('chu vi hinh tron la :', c:8:2);

readln

end.