uses crt;
var i,m:integer;
x:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива x(m)');
readln(m);
writeln('Введите элементы массива x(m)');
FOR i := 1 TO m do
begin
readln(x[i]);
end;
clrscr;
gotoxy(5,6);writeln('Четные среди положительных элементов массива');
FOR i := 1 TO m do
begin
IF (x[i] > 0) AND (x[i] / 2 = INT(x[i] / 2)) THEN
begin
gotoxy(i*3+5,8); writeln( x[i]); end;
gotoxy(i*3+5,10);writeln(x[i]);
end;
end.