Precios IVA

PROGRAM preciosIVA;

Const
    iva=23;
Var
   harina,leche,azucar,sal,arroz: real; //Precio de los productos
   porcentaje: real; //Para calcular cuanto se debe sumar al precio

BEGIN

  //Mostramos mensajes al usuario y leemos los datos desde la entrada.
  write('Precio HARINA : ');
  readln(harina);
  write('Precio LECHE : ');
  readln(leche);
  write('Precio AZUCAR : ');
  readln(azucar);
  write(Precio SAL : ');
  readln(sal);
  write(Precio ARROZ : ');
  readln(arroz);

  //Dejamos una l°nea en blanco
  writeln;

  //Calculamos el porcentaje de IVA para harina
  porcentaje:= harina*iva/100;
  //Mostramos el precio al usuario
  writeln('HARINA + IVA : ',leche+porcentaje:2:2);

  //Calculamos el porcentaje de IVA  para leche
  porcentaje:= leche*iva/100;
  //Mostramos el precio al usuario
  writeln('LECHE + IVA : ',leche+porcentaje:2:2);

  //Calculamos el porcentaje de IVA para azucar
  porcentaje:= azucar*iva/100;
  //Mostramos el precio al usuario
  writeln('AZUCAR + IVA : '.azucar+porcentaje:2:2);

  //Calculamos el porcentaje de IVA para sal
  porcentaje:= sal*iva/100;
  //Mostramos el precio al usuario
  writeln('ARROZ + IVA : ',arroz+porcentaje:2:2);
END.