somma n numeri interi

esci altro.htm

program somma2;
uses crt;
var conta,n,somma,totale:integer;
begin
clrscr;
somma:=0;
write('indica quanti numeri da sommare?');readln(totale);
for conta:=1 to totale do
begin
write('scrivi numero intero<100 ');readln(n);
somma:=somma+n;
end;
writeln('somma numeri=',somma);
writeln('premi invio per proseguire');
repeat until keypressed;
clrscr;
end.