Задание на паскале. Дан целочисленный массив размера 10.Вывести все содержащиеся в данном массиве четные двузначные числа.

Объяснение:

const

 a : array [1..10] of Integer = (2, 33, 66,45,34,23,65,100,234,38);

Var

 i: integer;

begin

 for i := 1 to 10 do

   if (a[i] mod 2 = 0) and (a[i]>9) and (a[i] < 100) then

    writeln(Format('%d', [a[i]]));

end;