somma interi

esci altro.htm

program somma1;
uses crt;
var conta,n,somma:integer;
begin
clrscr;
somma:=0;
for conta:=1 to 5 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.