PROGRAMA DE UNA FACTURA EN PSEINT

Program; factura
Uses crt;
Var nombre: char;
Nit código, cantidad, precio, subtotal: interger
Begin
Clrscr,
Writeln (‘ingrese su nombre’)
Readln(nombre);
Writeln(‘ingrese su numerode nit’)
Readln(nit);
Writeln(‘ingrese el codigo’);
Readln(codigo);
IF código= 1 then writeln (‘tecaldo precio Q 890.00’);
Writeln(‘cantidad de producto’);
Readln(cantidad);
Subtotal: cantidad* precio;
Writeln (‘subtotal, subtotal’);
Writeln(‘ingrese el codigo’);
Readln(código);
IF código=2 then writeln (‘borrador precio Q1.50’)
Writeln(‘cantidad del producto’);
Readln(cantidad);Subtotal:cantidad * precio;
Writeln(‘subtotal, subtotal’);
writeln(ingrese codigo);
readln(codigo);
IF código=3 then writeln (‘borrador precio Q0.50’)
writeln(‘cantidad de producto’);readln(cantidad);
subtotal:= cantidad*precio
writeln(‘subtotal,subtotal’);
Writeln(‘ingrese el codigo’);
Readln(codigo);
IF código= 3 then writeln (‘estuche precio Q 20.00’);
Writeln(‘cantidad deproducto’);
Readln(cantidad);
Subtotal: cantidad * precio;
Writeln (‘subtotal, subtotal’);
Writeln(‘ingrese el codigo’);
Readln(codigo);
IF código= 4 then writeln (‘telefono precio Q 175.00’);Writeln(‘cantidad de producto’);
Readln(cantidad);
Subtotal: cantidad * precio;
Writeln (‘subtotal, subtotal’);
Writeln(‘ingrese el codigo’);
Readln(codigo);
IF código= 5 then writeln (‘camisa precioQ850.00’);
Writeln(‘cantidad de producto’);
Readln(cantidad);
Subtotal: cantidad * precio;
Writeln (‘subtotal, subtotal’);
Writeln(‘ingrese el codigo’);
Readln(codigo);
IF código= 6 then writeln(‘cereal precio Q 50.00’);
Writeln(‘cantidad de producto’);
Readln(cantidad);
Subtotal: cantidad * precio;
Writeln (‘subtotal, subtotal’);
Writeln(‘ingrese el codigo’);
Readln(codigo);
IF código= 7then writeln (‘computadora precio Q 6,500.00’);
Writeln(‘cantidad de producto’);
Readln(cantidad);
Subtotal: cantidad * precio;
Writeln (‘subtotal, subtotal’);
Writeln(‘ingrese el...