program szamok;
uses crt;
var
        SZ: array[1..10] of integer;
        HOL: array[1..10] of integer;
        i: integer;
        jel: integer;


begin
clrscr;
        writeln('Kérlek, adj meg 10 számot, el fogom dönteni, hogy van-e közöttük páros!');

        jel:=0;
        i:=1;
        while i<=10 do
        begin
                writeln('Kérem a(z) ', i,'. számot:');
                readln(SZ[i]);
                if (SZ[i] mod 2)=0 then
                         begin
                         HOL[i]:=i;
                         jel:=1;
                         end;

                i:=i+1;
        end;


        if jel=1 then
        begin
                 i:=1;
                 while i<=10 do
                 begin
                 if (HOL[i]<>0) then
                 writeln('Igen, van páros, a(z) ', HOL[i],'. helyen, az értéke pedig: ', SZ[HOL[i]],' !');
                 i:=i+1;
                 end;
        end
        else writeln('Nincs a megadott számok között páros');









readln;
end.