programas en pascal

Hablando de programas en informatica, es bueno ejercitarse en varios lenguajes. El C tiene fama de ser el lenguaje por excelencia, el de los expertos, pues con él se han construido los sistemas operativos, pero no es muy amigable. Parece que el C++ arregló algo eso. Y, desde luego, el Pascal, me parece a mí, es el más elegante, claro y didáctico. Pues nada, por divertirnos solo, voy a poner aquí el último "parto", que acabo de hacer hace unos momentos. Es el clásico problema de sumar una serie de cantidades que le vas dando. Puede resultar hasta útil, pero solo se consideran los ingresos. Otro día lo completamos con las salidas.

program pruf12 (input, output);
var
i,last:integer;
cantidad:array[1..100] of real;
c,suma:real;
begin
i:=0;
repeat
i:=i+1;
write('Dame la cantidad ',i, ': ');
readln(c);
cantidad[i]:=c;
until c=0;
i:=1;
suma:=0;
while cantidad[i]<>0 do
begin
suma:= suma + cantidad[i];
write('Cantidad ingresada: ',cantidad[i]:10:2);
writeln('..... Suma acumulada: ',suma:10:2);
i:=i+1;
end;
writeln;
writeln('Cantidad total ingresada: ',suma:10:2);
end.

Se compila en GNU Linux con gpc nombre.pas -o nombre. En este caso el nombre que yo le he dado es pruf12.pas

Luego se ejecuta con ./nombre

Para terminar de ingresar cantidades se introduce 0.