Tarea de Pascal

Código del programa de la ferretería

program ventas;
uses crt;
var op,op1,op2,op3,op4,a,b,c,d,e,f,g,h:integer;
var mar,pala,man,tor,aza,pio,car,cla,tot:integer;
begin
mar:=0; a:=0;
pala:=0; b:=0;
man:=0; c:=0;
tor:=0; d:=0;
aza:=0; e:=0;
pio:=0; f:=0;
car:=0; g:=0;
cla:=0; h:=0;
tot:=0;
repeat
begin
repeat
writeln ('**Bienvenido a la Ferreteria Jess**');
writeln;
writeln ('Control de Ventas');
writeln;
writeln ('#1 para Ingresar Venta');
writeln ('#2 para Ver Ventas');
writeln ('#3 para Salir del Programa');
writeln('ingrese opcion');
readln (op);
if (op<1)>3) then
begin
writeln ('por favor ingrese solo los numeros que se nuestran en el menu');
writeln('gracias por su comprencion');
readkey;
clrscr;
end;
until (op>=1) and (op<=3);
clrscr;
if (op=1) then
begin
repeat
writeln('En este menu le mostratos el listado de nuestro productos');
writeln;
writeln ('#1 para martillos');
writeln ('#2 para palas');
writeln ('#3 para mangeras');
writeln ('#4 para tornillos');
writeln ('#5 para azodones');
writeln ('#6 para piochas');
writeln ('#7 para caretillas');
writeln ('#8 para clavos');
writeln('eliga una opcion');
readln(op1);
if (op1<1)>8) then
begin
writeln ('por favor ingrese solo los numeros que se nuestran en el menu');
writeln('gracias por su comprencion');
readkey;
clrscr;
end;
until (op1>=1) and (op1<=8);
if (op1=1) then
begin
writeln('cuantos martillos va a llevar');
readln(a);
end;
if (op1=2) then
begin
writeln('cuantos pala va a llevar');
readln(b);
end;
if (op1=3) then
begin
writeln('cuantos mangeras va a llevar');
readln(c);
end;
if (op1=4) then
begin
writeln('cuantos tornillos va a llevar');
readln(d);
end;
if (op1=5) then
begin
writeln('cuantos azadones va a llevar');
readln(e);
end;
if (op1=6) then
begin
writeln('cuantos piochas va a llevar');
readln(f);
end;
if (op1=7) then
begin
writeln('cuantos caretillas va a llevar');
readln(g);
end;
if (op1=8) then
begin
writeln('cuantos clavos va a llevar');
readln(h);
end;
writeln;
repeat
writeln('Menu para aceptar o cancelar venta');
writeln;
writeln('#1 para aceptar venta');
writeln('#2 para cancelar venta');
readln(op2);
if (op2<1)>2) then
begin
writeln ('por favor ingrese solo los numeros que se nuestran en el menu');
writeln('gracias por su comprencion');
readkey;
clrscr;
end;
until (op2>=1) and (op2<=2);
if(op2=1) then
begin
writeln('su venta a sido aceptada');
if(op1=1)then
begin
mar:=mar+a;
end;
if(op1=2)then
begin
pala:=pala+b;
end;
if(op1=3)then
begin
man:=man+c;
end;
if(op1=4)then
begin
tor:=tor+d;
end;
if(op1=5)then
begin
aza:=aza+e;
end;
if(op1=6)then
begin
pio:=pio+f;
end;
if(op1=7)then
begin
car:=car+g;
end;
if(op1=8)then
begin
cla:=cla+h;
end;
readkey;
end;
end;
if(op2=2) then
begin
writeln('su venta a sido cancelada');
end;
end;
clrscr;
if (op=2) then
begin
repeat
clrscr;
writeln('En este menu se le presentan dos opciones a escoger');
writeln;
writeln ('#1 para ver venta por producto individual');
writeln ('#2 para Ver ventas en general');
writeln('ingrese opcion');
readln (op3);
if (op3<1)>2) then
begin
writeln ('por favor ingrese solo los numeros que se nuestran en el menu');
writeln('gracias por su comprencion');
readkey;
clrscr;
end;
until (op3>=1) and (op3<=2);
if (op3=1) then
begin
repeat
clrscr;
writeln('ingrese el numero del artuculo que desea ver');
writeln ('#1 para martillos');
writeln ('#2 para palas');
writeln ('#3 para mangeras');
writeln ('#4 para tornillos');
writeln ('#5 para azadones');
writeln ('#6 para piochas');
writeln ('#7 para caretillas');
writeln ('#8 para clavos');
writeln ('eliga una opcion');
readln(op4);
if (op4<1)>8) then
begin
writeln ('por favor ingrese solo los numeros que se nuestran en el menu');
writeln('gracias por su comprencion');
readkey;
clrscr;
end;
until (op4>=1) and (op4<=8);
if (op4=1) then
begin
writeln('el total de martillos vendidos es de ',mar,' que equivale a ',mar*20,' quetzales');
readkey;
clrscr;
end;
if (op4=2) then
begin
writeln('el total de palas vendidas es de ',pala,' que equivale a ',pala*30,' quetzales');
readkey;
clrscr;
end;
if (op4=3) then
begin
writeln('el total de mangeras vendidas es de ',man,' que equivale a ',man*25,' quetzales');
readkey;
clrscr;
end;
if (op4=4) then
begin
writeln('el total de tornillos vendidas es de ',tor,' que equivale a ',tor*2,' quetzales');
end;
if (op4=5) then
begin
writeln('el total de azadones vendidas es de ',aza,' que equivale a ',aza*30,' quetzales');
readkey;
clrscr;
end;
if (op4=6) then
begin
writeln('el total de piochas vendidas es de ',pio,' que equivale a ',pio*35,' quetzales');
readkey;
clrscr;
end;
if (op4=7) then
begin
writeln('el total de caretillas vendidas es de ',car,' que equivale a ',car*60,' quetzales');
readkey;
clrscr;
end;
if (op4=8) then
begin
writeln('el total de clavos vendidas es de ',cla,' que equivale a ',cla*2,' quetzales');
readkey;
clrscr;
end;
end;
if (op3=2) then
begin
writeln('el total de articulos que usted lleva son');
writeln;
writeln ('el total de martillos es ',mar,' que equivale a ',mar*20,' quetzales');
writeln ('el total de palas es ',pala,' que equivale a ',pala*30,' quetzales');
writeln ('el total de mangeras es ',man,' que equivale a ',man*25,' quetzales');
writeln ('el total de tornillos es ',tor,' que equivale a ',tor*2,' quetzales');
writeln ('el total de azadones es ',aza,' que equivale a ',aza*30,' quetzales');
writeln ('el total de piochas es ',pio,' que equivale a ',pio*35,' quetzales');
writeln ('el total de caretillas es ',car,' que equivale a ',car*60,' quetzales');
writeln ('el total de clavos es ',cla,' que equivale a ',cla*2,' quetzales');
readkey;
clrscr;
end;
end;
until (op=3);
end.