В цикле проверяете (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.
1\(1*3)+1\(2*4)+1\(3+5)
1\3+1\8+1\8=
спільні множники до 1-8,до 2-3 до 3-3.
Перемножуємо
8\24+3\24+3\24=14\24
Скорочуємо на 2= 7\12
Готово