Algoritmia - tengo que elabarar un algoritmo en lpp ayuda pls

{Ejercicio Nro 1}

uses crt;

const

	iva = 0.19;

var

	fin:char;

	nombre:string;

	precio,st,impuesto,total,tot_general:real;

	cantidad:word;

begin

	clrscr;

	fin:=' ';

	tot_general:=0;

	while fin <> 'n' do begin

		write('Nombre del cliente: ');

		readln(nombre);

		write('Precio del producto: ');

		readln(precio);

		write('Cantidad a comprar: ');

		readln(cantidad);

		st:=precio*cantidad; {subtotal}

		impuesto:=st*iva; {IVA}

		total:=st+impuesto;

		writeln('Subtotal = ',st:4:2);

		writeln('IVA = ',impuesto:4:2);

		writeln('Total a pagar = ',total:4:2);

		tot_general:=tot_general+total;

		writeln;

		write('Desea continuar s/n:' );

		readln(fin);

	end;

	writeln;

	writeln('Total global de la factura = ',tot_general:4:2);

end.