gauss.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

program suma_Gauss;
{suma primelor n nr naturale}
var s,n,i:integer;
begin
write('n= ');
readln(n);
s:=0;
i:=0;
{for i:=1 to n do
s:=s+i;}
repeat
       s:=s+i;
       i:=i+1;
until i=n+1;
writeln('s= ',s);
end.