[ Foro de Pascal ]

AYUDA SUBPROGRamas

Hola tengo un problema , se me pide q le pregunte al usuario un precio de un articulo y el iva del mismo
Hice esto

Program Precio_producto;
uses
crt;

Function PVP(valorprod:real; ivaprod: real):real;
Var
   total_iva : real;

begin
   total_iva := valorprod*ivaprod/100;
   PVP := valorprod + total_iva;

End;

Var
valorprod:real;
ivaprod:real;
preciofinal:real;
iva_final:real;
total_iva:real;

begin
write ('Introduzca el valor del producto:');
readln (valorprod);
write ('Introduzca el Iva del producto:');
readln (ivaprod);
iva_final:= total_iva(valorprod,ivaprod);
writeln;
write ('El iva final es =', iva_final:3:2);
preciofinal:= PVP (valorprod, total_iva);
writeln;
write ('El precio de venta es=', preciofinal:3:2);
readln;
end.

pero me da fallos en iva_final:=total_iva(valorprod.....
q estoy haciendo mal?
gracias

Lo que yo veo ahí, es que definiste a "total_iva" como variable, y en el programa principal lo estas queriendo usar como una función.

ok solucionado, gracias