program sumatoria;

program sumatoria;
uses
crt;
var
suma,contador,numero:integer;
begin
clrscr;
writeln('tecle hazta que numero');
readln(numero);
suma:=0;
for contador:=1 to numero do;
begin
suma:=suma+contador;
end;
writeln('suma:',suma);
readln;
readkey;
end.