Ввести с клавиатуры массив из 15 четных чисел
Program N1;var a: array [1..15] of integer;i:integer;beginfor i:= 1 to 15 doreadln(a[i]);end.