đề bài : Viết chương trình tính tổng của 20 tự nhiên đầu tiên thì mình làm như thế này có đúng không ạ 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.

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.