Начнём с того, что эта программа даже не скомпилируется. Вы пытаетесь вывести какой-то неизвестный компилятору объект URA!, URAA! и так далее. Вместо этого Вам необходимо занести это под кавычки " " - так компилятор будет знать, что это строка, которую необходимо вывести в консоль.
Ход работыесли(5 < 4 и 2 > 5) = если(ложь и ложь) = если(ложь) - пропускаем это условие, переходим к следующему.
если(5 > 0 или 5 < 4) = если(истина или ложь) = если(истина) = условие выполняется, на консоль выводится надпись "URAA!";
N = 10;
Var
A:array[1..N] of integer;
i:integer;
Begin
WriteLn('Введите массив:');
For i:= 1 to N do
Read(A[i]);
Write(A[1],' ');
For i:= 2 to N do
Begin
if A[i] mod 2 = 0 then WriteLn;
Write(A[i],' ')
End;
End.