Viết chương trình sử dụng lệnh for-do hoặc while…do S= 1+2+3+4+…+2019

var i,S : integer;

begin

S:=0;

for i:=1 to 2019 do S:=S+i;

readln

end.

var i,S : integer;

begin

S:=0;

i:=1;

while i<=2019 do

begin

S:=S+i;

i:=i+1;

end;

readln

end.