с заданием по информатике
Все на картинке

В цикле проверяете (a mod 2) равно ли нулю, то бишь равен ли нулю остаток. Если да - число четное. одновременно с этим первое четное число кладете в переменную max, а остальные четные сравниваете с этой переменной, если какое-то число больше - его кладете в переменную max. Ясно? Если нет, могу написать программу, но лучше чтобы вам было ясно

UPD: можно через массивы, но это не хардкорно

a, max, counter   :   integer;
begin
max := 0;
for counter = 1 To 15 Do
   begin
   writeln("Write ur number:");
   readln(a);
   if (a mod 2) = 0 then 
       if a > max then max := a;
   end;
writeln(max);
readln();
end.

–––––––––––––––––––––––––––––––––––
Вам Б-г

   

Информация – это сведения об окружающем мире (объекте, процессе, явлении, событии) , которые являются объектом преобразования (включая хранение, передачу и т. д. ) и используются для выработки поведения, для принятия решения, для управления или для обучения.

Информацию нам несут другие люди, всевозможные предметы и явления. ... Человек постоянно совершает действия, связанные с получением и передачей, хранением и обработкой информации. Чтение газеты, заучивание правил или стихотворения, решение математических задач, фотографирование – это действия человека с информацией.