preciso de ajuda

[undergrund]

var

iop,x:integer;

Begin

writeln('escolha um numero');

writeln('1 - azul');

writeln('2 - vermelho');

writeln('3 - preto');

writeln('4 - amarelo');

read(iop);

case(iop)

1: begin

writeln('*******************************');

writeln('*****você ganhou 10 pontos*****');

writeln('*******************************');

end;

2: begin

writeln('*******************************');

writeln('*****vocÊ ganhou 20 pontos*****');

writeln('*******************************');

end;

3:begin

writeln('*******************************');

writeln('*****vocÊ ganhou 30 pontos*****');

writeln('*******************************');

end;

4:begin // caso o usuário escolha o numero 4 repete todo o algoritmo

writeln('escolha outro numero');

writeln('1 - azul');

writeln('2 - vermelho');

writeln('3 - preto');

writeln('4 - amarelo');

read(iop);

case (iop);

1: begin

writeln('*******************************');

writeln('*****você ganhou 10 pontos*****');

writeln('*******************************');

end;

2: begin

writeln('*******************************');

writeln('*****vocÊ ganhou 20 pontos*****');

writeln('*******************************');

end;

3:begin

writeln('*******************************');

writeln('*****vocÊ ganhou 30 pontos*****');

writeln('*******************************');

end;

for x:=1 to 100 do

4:writeln('mas você é burro ja disse pra escolher outro numero');

End.

alguem pode me ajuda com esse codigo em pascal????

não estou conseguindo fazer funcionar alguem pode me ajudar???

[fmarquesan]

Os moderadores colocam mais de 20 avisos, pra você ler antes de postar.

Daí você posta sem título (preciso de ajuda não é aceito em forum), não descreve nada do propósito, do que pretende fazer, e ainda posta em duplicidade.

Depois reclama que foram rígidos demais...

[undergrund]

cara não ta em duplicidade

o codigo é assim mesmo

le aí q você vai entender