viết chương trình tính tổng s các số từ 1 đến 100 .  
Mọi người ơi, mình đang cảm thấy rất lo lắng không biết phải giải quyết câu hỏi này như thế nào, mai phải nộp bài cho giáo viên rồi. Bạn nào thông thái giúp mình với!

uses crt;

var s,i:integer;

begin

s:=0;

for i:=1 to 100 do s:=s+i;

write('Tong cac so tu 1 den 100 la: ',S);

readln;

end.