В линейном целочисленном массиве найти все четные элементы и их порядковые номера. Паскаль

Пиксель» ұғымын ең алғаш рет 1965 жылы Фредерик С.Биллингсли жариялаған. Бұл сөз бейнелер мен элементтерге арналған пикстердің үйлесімін білдіреді. 1932 жылы Варіетy журналының атауында «пикс» ұғымы фильмдерге қатысты мәтіндік бейнелердің аббревиатурасы ретінде қолданыс тапқан. Ал 1938 жылдан бастап «пикс» жылжымайтын бейнелерге қатысты жұмсалып келеді. Кейбір авторлардың түсіндіруінде пиксель жасуша бейнесі ретінде ұғынылса, 1972 жылы графикада, бейнелер мен бейнежазбаларды өңдеуде жиі қолданылды.

Var
    money: array[1..7]of integer;
    count: array[1..7]of integer;
    s, i: integer;

begin
    money[1] := 1;
    money[2] := 2;
    money[3] := 5;
    money[4] := 10;
    money[5] := 50;
    money[6] := 100;
    money[7] := 500;
    
    write('s = ');
    readln(s);
    
    i := 7;
    repeat
        if s >= money[i] then begin
            s := s - money[i];
            count[i] := count[i] + 1;
        end
        else i := i - 1;
    until s <= 0;
    
    for i := 7 downto 1 do
        if count[i] > 0 then
            writeln(money[i], ' p. = ', count[i], ' шт.')
end.