uses crt;
var
desc,total,importe:real;
tipoComprador,editorial:string;
begin
clrscr;
write('Importe de la compra: ');
readln(importe);
write('Tipo de comprador [estudiante o publico en general]:');
readln(tipoComprador);
write('Casa editorial: ');
readln(editorial);
if (editorial = 'san marcos') and (tipoComprador = 'estudiante') then begin
desc:=importe * 0.25;
total:=importe - desc;
writeln('Descuento = ',desc:5:2);
writeln('Monto total = ',total:5:2)
end
else if (editorial = 'san marcos') and (tipoComprador = 'publico') then begin
desc:=importe * 0.10;
total:=importe - desc;
writeln('Descuento = ',desc:5:2);
writeln('Monto total = ',total:5:2)
end
else if (editorial = 'covenas') and (tipoComprador = 'estudiante') then begin
desc:=importe * 0.30;
total:=importe - desc;
writeln('Descuento = ',desc:5:2);
writeln('Monto total = ',total:5:2)
end
else if (editorial = 'covenas') and (tipoComprador = 'publico') then begin
desc:=importe * 0.13;
total:=importe - desc;
writeln('Descuento = ',desc:5:2);
writeln('Monto total = ',total:5:2);
end
else if (editorial = 'otros') and (tipoComprador = 'estudiante') then begin
desc:=importe * 0.35;
total:=importe - desc;
writeln('Descuento = ',desc:5:2);
writeln('Monto total = ',total:5:2)
end
else begin
desc:=importe * 0.16;
total:=importe - desc;
writeln('Descuento = ',desc:5:2);
writeln('Monto total = ',total:5:2)
end;
end.