Pascal/Turbo Pascal - Por qué me da error?

   
Vista:

Por qué me da error?

Publicado por fede (19 intervenciones) el 06/06/2011 22:15:40
Buenas, pasé un ejercicio a pascal y me quedó así. Pero me da error, 2 para ser más específico.
Si podrían ayudarme en que me equivoco se los agradecería muchísimo, ya que yo no me termino de dar cuenta.


program io(input,output);
uses crt;
var i:integer;
v: array[1..30] of integer;

procedure hola;
begin
for i:=1 to 10 do
begin
readln(v[i]);
if mod(v[10])=0
then
begin
for i:=1 to 5 do
begin
v[î*1]:=0;
end;
end
else
begin
for i:=1 to 5 do
begin
v[(i*2)-1]:=0;
end;
end;
end;
for i:=1 to 10 do
begin
readln(v[i]);
end;
repeat until keypressed;
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Por qué me da error?

Publicado por fede (19 intervenciones) el 06/06/2011 22:18:42
No sé preocupen ya me di cuenta, tenía muchos errores.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar