program sigma;

var n,i,suma:integer;

begin

i:=0;

suma:=0;

writeln ('program liczy sigme od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

suma:=suma+i;

i:=i+1;

end;

writeln(' sigma wynosi ', suma);

readln;

end.

program sigma;

var n,i,suma:integer;

begin

i:=0;

suma:=0;

writeln ('program liczy sigme od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

suma:=suma+i;

i:=i+1;

end;

writeln(' sigma wynosi ', suma);

readln;

end.

program sigma;

var n,i,suma:integer;

begin

i:=0;

suma:=0;

writeln ('program liczy sigme od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

suma:=suma+i;

i:=i+1;

end;

writeln(' sigma wynosi ', suma);

readln;

end.

program sigma;

var n,i,suma:integer;

begin

i:=0;

suma:=0;

writeln ('program liczy sigme od 1 do n');

writeln ('Podaj n: ');

readln(n);

while (i<=n) do

begin

suma:=suma+i;

i:=i+1;

end;

writeln(' sigma wynosi ', suma);

readln;

end.

---