Respostas

2014-02-23T22:40:58-03:00
program Soma_dos_Cem;
uses Crt;
var
   contador, i : integer;
begin
   for i := 1 to 100 do begin
      contador := contador + i;
      writeln(i);
   end;
   write('Soma: ',contador);
   readln();
end.