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

program tinh_tong;

var i: integer;

s: longint;

begin

s:=0;

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

writeln('tong cua 200 so tu nhien dau tien la:=', s);

readln

end.

QANDA ;)

program tinh_tong;

uses crt;

var i: integer;

s: longint;

begin

s:=0;

i:=1;

while i<= 200 do

begin

s:= s+i; i:= i+1;

end;

writeln('tong cua 200 so tu nhien dau tien la:=', s);

readln

end.