Untitled

program indumentaria;

uses crt;

const
    gana = 0.25;
    paga = 0.295;

var
    tipoprenda: char;
    tela: string[10];
    m_ncsarios, costo_x_metro, precio_final, costo, total_metros, impuesto: real;
    cant_prendas: integer;

begin

clrscr;

// Inicializamos las variables
precio_final := 0;
costo := 0;

write('Ingrese el tipo de prenda (c, p, s): ');
readln(tipoprenda);

write('Nombre de la tela a utilizar para la confeccion de la prenda (max 10): ');
readln(tela);

write('Cantidad de metros de tela necesarios para la fabricacion de una prenda: ');
readln(m_ncsarios);

write('Cantidad de prendas a fabricar en el lote: ');
readln(cant_prendas);

write('Costo por metro de la tela: ');
readln(costo_x_metro);

// Total de metros necesarios
total_metros := m_ncsarios * cant_prendas;

// Costo de 1 prenda
costo := total_metros * costo_x_metro;

// Impuesto (29.5% del costo)
impuesto := costo * paga;

// Le sumamos la ganancia y el impuesto
precio_final := costo + (costo * gana) + impuesto;

writeln('Tipo de prenda: ', tipoprenda);
writeln('Nombre de la tela: ', tela);
writeln('Cantidad de prendas del lote de fabricacion: ', cant_prendas);
writeln('Cantidad de metros de tela necesarios para fabricar la cantidad de prendas del lote: ', total_metros);
writeln('Costo por prenda: ', costo);
writeln('Precio de venta al publico: ', precio_final);

readln();

end.