Программа нахождения четных чисел из 10 любых на языке Pascal

Var
mas:array[1..10]of integer;
i:integer;
Begin 
    write(Введите 10чисел: ); 
   for i:=1 to 10  do  readln(mas[i]);    
 write(Четными являются: ); 
   for i:=1 to 10 do   if (mas[i] mod 2 = 0) then write(mas[i], );
End.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.