Exercício 2!

Elabore um programa que calcule o total liquido de uma factura sabendo o valor dos

produtos, o desconto oferecido por pronto pagamento e a taxa de IVA aplicar.

Program Cal;                                                       Begin

Var                                                                                  Writeln(‘descontos’);

Prot, total: Real;               

                         Read(desc);

X,i,IVA,Desc: integer;         

  Writeln(‘IVA’);                                            

Begin   Read(iva);

Writeln(‘Quantos produtos são?’);  Writeln(‘valor’);

Read(i);  end.

Clrscr;

Writeln(‘preço do produto’);

For x:=1 to I do

Total:=total + prot;

End;