Массив в Pascal

[IIo3uTuB]

Несколько школьников выстроились в шеренгу. Для каждого школьника известен день его рождения. Требуется: Определить номер третьего из школьников, дни рождения которых являются четными числами

[newerow1989]

var i,k:integer;
    p:array[1..25] of integer;
begin
   Randomize;
   For i:=1 to 25 do
   begin
      p[i]:=1+Random(31);
      Write(p[i]:2,' ');
   end;
   Writeln;
   Writeln;
   For i:=1 to 25 do
      If p[i] mod 2=0 then
      begin
         k:=k+1;
         If k mod 3=0 then
            Write(i:2,' ');
      end;
   Writeln;
   Readln;
end.

[IIo3uTuB]

Спасибо! Всё работает

[newerow1989]