Pascal/Turbo Pascal - EXAMEN PASCAL URGENTE!

Hola, hoy di mi primer examen de programación(diagrama)y no me fue nada bien, necesito SI O SI, dar bien pasado mañana el examen de codificación en Pascal. Por favor alguien que sepa, podría decirme como se codificaría el siguiente ejercicio:
"Una casa vende lamparas de 40, 75 y 100 voltios, mostrar la cantidad de lamparas de cada clase y el importe final de ventas teniendo en cuenta que las lamparas de 40 voltios cuestan $0.50, las de 75 voltios $0.95 y las de 100 voltios $1.20 Termina el ingreso de datos cuando la cantidad de voltios es igual a 0".

MUCHÍSIMAS GRACIAS-.

Qué llevas hecho?

mmm tengo esto

program zzzz;

var lampara, lamp40, lamp75, lamp100: integer;
importe: real;
begin
importe:= 0;
lamp40:=0;
lamp75:=0;
lamp100:=0;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

while (lampara <> 0) do
begin
if (lampara = 40) then
begin
importe:=importe + 0.5;
inc(lamp40);
end
else
if (lampara = 75) then
begin
importe:=importe+0.95;
inc(lamp75);
end
else
if (lampara = 100) then
begin
importe:= importe + 1.2;
inc(lamp100);
end;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

end; {aca termina el while de carga}

writeln('Cantidad de lamparas de 40 voltios: ', lamp40);
writeln('Cantidad de lamparas de 75 voltios: ', lamp75);
writeln('Cantidad de lamparas de 100 voltios: ', lamp100);

writeln('Importe total: ', importe);

readln;
end.

pero pascal no me lo toma del todo bien, igual intento modificarlo, pero nose si esta bien.

program Distribuidora;
uses crt;
var
Lampara:integer;
Lamp40,Lamp75,Lamp100:integer;
Suma40,Suma75,Suma100,Sumatotal:real;
begin
Lamp40:=0;
Lamp75:=0;
Lamp100:=0;
Suma40:=0;
Suma75:=0;
Suma100:=0;
Sumatotal:=0;

clrscr;
Repeat
clrscr;
gotoxy(30,19);Write('Total de compra');
gotoxy(30,20);Write(lamp40,' Lamparas de 40 volts, costo :',Suma40:6:3);
gotoxy(30,21);Write(lamp75,' Lamparas de 75 volts, costo :',Suma75:6:3);
gotoxy(30,22);Write(lamp100,' Lamparas de 100 volts, costo :',Suma100:6:3);
gotoxy(30,23);Write(' El total de la compra es:',SumaTotal:6:3);

gotoxy(5,5);Write('Indique el tipo de Lampara');
gotoxy(5,6);Write('[40] Lampara de 40 volts');
gotoxy(5,7);Write('[75] Lampara de 75 volts');
gotoxy(5,8);Write('[100] Lampara de 100 volts');
gotoxy(5,9);Write('[0] Salir');
gotoxy(5,10);write('Ingrese opcion ->');read(Lampara);

Case Lampara of
40:Begin
inc(Lamp40);
Suma40:=Lamp40 * 0.50;
End;
75:Begin
inc(Lamp75);
Suma75:=Lamp75 * 0.95;
End;
100:Begin
inc(Lamp100);
Suma100:=Lamp100 * 1.20;
End;
End;
SumaTotal:=Suma40+Suma75+Suma100;
Until Lampara = 0;

gotoxy(30,19);Write('Total de compra');
gotoxy(30,20);Write(lamp40,' Lamparas de 40 volts, costo :',Suma40:6:3);
gotoxy(30,21);Write(lamp75,' Lamparas de 75 volts, costo :',Suma75:6:3);
gotoxy(30,22);Write(lamp100,' Lamparas de 100 volts, costo :',Suma100:6:3);
gotoxy(30,23);Write(' El total de la compra es:',SumaTotal:6:3);

gotoxy(30,24);write('Pulse una tecla para continuar...');
readkey;
end.

la llevas bien

analizalo, no es dificil...

Hola Graciela.
Tu programa solo tiene unos pequeños fallos.Te lo envío retocado y así verás esos pequeños errores:

program zzzz;
uses crt;

var lampara, lamp40, lamp75, lamp100: integer;
importe: real;
begin
importe:= 0;
lamp40:=0;
lamp75:=0;
lamp100:=0;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

while (lampara <> 0) do
begin
if (lampara = 40) then
begin
importe:=importe + 0.5;
inc(lamp40);
end
else
if (lampara = 75) then
begin
importe:=importe+0.95;
inc(lamp75);
end
else
if (lampara = 100) then
begin
importe:= importe + 1.2;
inc(lamp100);
end;

writeln('ingrese tipo de lampara: 40, 75, 100. Ingrese 0 para salir.');
readln(lampara);

end; {aca termina el while de carga}
clrscr;
writeln('Cantidad de lamparas de 40 voltios: ', lamp40);
writeln('Cantidad de lamparas de 75 voltios: ', lamp75);
writeln('Cantidad de lamparas de 100 voltios: ', lamp100);

writeln('Importe total: ', importe:8:2);

{readln; Esta funcion de entrada sobra}
end.

Suerte.