có sai 1 vài lỗi ạ;

ở dòng: writeln( ‘ Tong cua ‘ ,20, ` so tu nhien dau tien S = ‘ , S);

sai ở:

không có dấu ‘ trong câu lệnh thông báo

không có dấu ` trong câu lệnh thong báo

sửa lại: writeln( ' Tong cua ' ,20, ' so tu nhien dau tien S = ' , S);

chương trình sau khi sửa:

Program Tinh_tong;
         uses crt;
          var i,s:integer;
          begin
          clrscr;
         S:=0;
         for i:=1 to 20 do   S:=S+i;
         writeln( ' Tong cua ' ,20, ' so tu nhien dau tien S = ' , S);
         readln;
         end.

Phần sai: 

writeln( ‘ Tong cua ‘ ,20, ` so tu nhien dau tien S = ‘ , S);

Sửa:

writeln( ‘ Tong cua ‘ ,20, ` so tu nhien dau tien S = ‘ , S);

writeln( ' Tong cua ' ,20, ' so tu nhien dau tien S = ' , S);

thay dấu ` thành dấu ' nha