Pascal/Turbo Pascal - Programa en Pascal

{Espero esto sirva}

 program numeros;

 uses

    crt;

  var

    t, u, x, num : integer;

    misnum : array[1..5] of integer;

  begin

      clrscr;

      randomize;

      x := 1;

      u := 1;

    repeat

       num := random(50) + 1;

       if x = 1 then

       begin

       if num mod 2 = 0 then

       begin

       misnum[u] := num;

       u := u + 1;

       end;

       end

     else

        begin

           if num mod 2 = 0 then

           begin

             misnum[u] := num;

             u := u + 1;

            end;

        end;

        x := x + 1;

    until (u > 5) or (x > 50);

    for t := 1 to 5 do

    write('   ',misnum[t]);

    readkey;

  end.