Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng

Câu 2:  Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng: (3 điểm)
 
Program   vidu:
Uses   crt;
Var R = integer;
       S: real:
Const Pi := 3.14;
Begin
         Write(‘ nhap gia tri R:=’); readln(R):
         S = R*R*3*3.14;
         Wrtieln(‘ dien tich hinh tron s: = ‘,S)
Readln;
End.
Ví dụ:
- Thay dấu : bằng dấu (;)    program  vidu;