Algoritmia - importe de la compra, tipo de comprador y la editorial

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.