Khai báo biến s,n,i thiếu dấu ; ở cuối

Biến a chưa được khai báo đã đưa vào sử dụng

Sửa lại:

Var s: real;

i,n,a: integer;

`-` Khai báo uses crt bị dính liền

   `->` Uses Crt ;

`-` S kiểu giá trị số thực `->` Khai báo real `->` sai từ khoá

    `+` Thiếu chấm phẩy

   `->` S :Real ;

`-` Giữa biến N và i thiếu dấu phẩy `->` Integer sai chính tả 

   `+` Thiếu chấm phẩy

     `->` N, i : Integer ;

`-` Dòng realln (a) sai

  `->` readln (a) ;

`-` Điều kiện sau while sai .

`-` N := N+1 sai vì hiếu chấm phẩy

`-` Dòng writeln cuối 

  `+` Giữa phần in và phần xuất thiếu dấu phẩy ngăn cách

`-` Chương trình con thiếu chấm phẩy

   `->` writeln('Tong S la: ', S:6:2) ;

`-` readln dòng cuối cùng sai chính tả  

  `->` Readln