Viết chương trình tính tổng 20 số tự nhiên đầu tiên

Lời giải:

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 20 do 

  t:=t+i;

writeln(t);

readln;

end.