viết chương trình tính tổng 100 số tự nhiên đầu tiên bằng câu lệnh if… then-

Program tinh_tong;

uses crt;

const : N:=100;

Var i,tong:integer;

begin

clrscr;

tong:=0; i:=1;

while i<=N do

begin

tong: = tong + i;

i:=i+1;

end;

Writeln(‘tong cua 100 so tu nhien dau tien la ‘,tong);

Readln ;

End.