Código: Selecionar todos
program calcular_carga;
uses crt;
var prod,emb,carga:real;
intUnid:integer;
begin
clrscr;
writeln('Qual o peso do produto?');
readln(prod);
writeln('Qual o peso da embalagem?');
readln(emb);
writeln('Quantas unidades?');
readln(intUnid);
carga:=(prod+emb)*intUnid;
writeln('a carga total sera',carga);
end.