Programación Panaderia

program Panaderia;

uses CRT;

type

  prodPrecs = record

    Producto: string;

        Precio: integer;

  end;

var

  num1,num2,num3,num4,num5,num6,num7,num8,num9:integer;

 monto1,monto2,monto3,monto4,monto5,monto6,monto7,monto8,monto9:integer;

 subtotal,iva,total: real;

procedure dibujaCeldas(xi: integer; y: integer; xf: integer);

var

  i: integer;

 begin

   (* Linea horizonatal arriba *)

   gotoxy(xi+1,y);

   for i:= xi to xf-2 do

     write(char(45));

   (* Linea horizonatal arriba *)

   gotoxy(xi,y+2);

   for i:= xi+1 to xf do

     write(char(45));

   (* Linea vertical izquierda *)

    for i:= y to y+2 do

     begin

       gotoxy(xi,i);

           write(char(124));

     end;

    for i:= y to y+2 do

     begin

   (* Linea vertical derecha *)

       gotoxy(xf,i);

           write(char(124));

     end;

    for i:= y to y+2 do

     begin

       gotoxy(60,i);

           write(char(124));

     end;

 end;

begin

  ClrScr;

     begin

     ClrScr;

     textcolor(white);

  writeln('BIENVENIDO A LA PANADERIA M&S');

   Textcolor(29);

  writeln('F A C T U R A');

  Writeln(' ');

  writeln (' ');

  writeln('Producto-----------------------------------------------Precio');

  writeln('Pan......................................................10bs');

  writeln('Pan dulce................................................15bs');

  writeln('Torta.....................................................8bs');

  writeln('Jugo de naranja..........................................20bs');

  writeln('Torta fria...............................................12bs');

  writeln('Malta....................................................15bs');

  writeln('Refresco.................................................15bs');

  writeln('Cachito..................................................12bs');

  writeln('Sanduche.................................................14bs');

  writeln;

  writeln( 'Inserte la cantidad de productos que desee comprar');

   (* Linea horizonatal arriba *)

   (* Linea vertical derecha *)

Textcolor(white);

 write('Cantidad de Pan:');readln(num1);

 write('Cantidad de Pan dulce:');readln(num2);

 write('Cantidad de Torta :');readln(num3);

...