Даны три вещественных числа
вывести на экран те ,которые являются четными

Появление компьютеров совершило в нашей жизни революцию. Они изменили наш подход к работе, учёбе, досугу и другим сторонам жизни. Сегодня компьютеры используются во всех сферах жизни, например, в медицине применяется компьютерная томография, на транспорте – управление движением, в науке – при проведении расчётов и моделировании процессов. Создание компьютеров привело к возникновению Интернета, который представляет всемирную компьютерную сеть, позволяющую быстро найти требуемую информацию и связаться с другими людьми. Я тоже пользуюсь компьютером и Интернетом. В памяти моего компьютера размещены энциклопедии, словари и другие справочные материалы, которые я использую при подготовке домашних заданий. На моем компьютере также установлены игры развивать реакцию, тренировать память, мышление, мультфильмы, художественные и документальные фильмы. Недавно я посмотрел фильм «Дубровский» , скоро мы будем изучать эту повесть А. С. Пушкина на уроке литературы. Кроме плюсов компьютер и Интернет имеют и свои минусы. В Интернете можно найти реферат на любую тему и по любому предмету вместо того, чтобы самому его написать. Также в Интернете есть множество информации, не представляющей никакой ценности. Слишком долгое пребывание перед монитором компьютера портит зрение, осанку, вызывает утомление. Длительное и регулярное увлечение компьютерными играми может привести к возникновению игромании, что вызывает агрессию и отрицательно сказывается на здоровье. Компьютер – важное изобретение, и надо научиться правильно его использовать. Следует получать только ту информацию, которая необходима для самостоятельного выполнения заданий, и не перекладывать на Интернет написание сочинений и рефератов. Необходимо ограничивать компьютерное время, отведенное на игры и развлечения.

Код написан на Pascal (только умоляю, будь аккуратен с отступами и табуляцией). Также прикрепил вывод компилятора (красным обвёл то, что нужно именно тебе, на остальное не обращай внимания). Также код есть в текстовом фале (его тоже прикрепил):

uses crt;

const n=10;

var m : array[1..n] of integer;

i, max, max_i : integer;

begin

   for i:= 1 to n do

   begin

       m[i]:= random(-10) + 10;

       write(m[i],' ');

   end;

   max:= m[1];

   max_i:= 1;

   for i:= 1 to n do

   begin

       if (max > m[i]) then

       begin

           max:= m[i];

           max_i:= i;

       end;

   end;

   writeln();

   writeln('max = m[',max_i,']');

   writeln('max = ',max);

end.