Exercício 09 While - Pascal

9) Construa um algoritmo que apresente o peso total que será carregado por um caminhão. Sabe-se
que esse caminhão carrega 25 caixas, com pesos diferentes. Será entrada do programa o peso (P) de
cada uma das caixas.

Program while09;
uses crt;
var
 peso,i,p:integer;
Begin
    while (i<25) do
        Begin
            Write('Informe Peso: ');
            readln(p);
                peso:=peso+p;
            i:=i+1;    
        End;        
    Writeln('Peso: ',peso);    
End.

Categories: Pascal , Programação