Tính tổng 100 số tự nhiên

ĐỀ =>Dùng For: tính tổng 100 số tự nhiên. 
bước1: nhập 10 số tự nhiên .( vì 100 số quá nhiều) 
bước2: nhập for i:=1 to 100 do begin S:=S+N,  write('Nhap so ')Readln(N); end;
bước3: Xuất kết quả S