Задано рядок, що має парну кількість символів. Поміняти місцями першу половину рядка з другою. Наприклад: 123abc – аbc123;

1)
var n,i,p:longint;a:array[1..100]of longint;
begin
read(n);p:=1;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 3=0 then p:=p*a[i];
writeln(p);
end.
2)
var n,i,s,p:longint;a:array[1..100]of longint;
begin
read(n);
p:=1;s:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]>0 then s:=s+a[i];
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
if p>s then writeln('proizvedenie')
else if p<s then writeln('summa')
else writeln('ravni'); 
end.
3)
var n,f,i,o:longint;a:array[1..100]of longint;
begin
read(n);f:=0;
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do begin
if a[i]<0 then f:=f+1;
if f=2 then begin o:=a[i];break;end;
end;
writeln(o);
end.

1) НЕ (x<5) и (x - чётное). Преобразуем выражение с учётом отрицания "НЕ", получаем

(x>=5) и (x - чётное). Нас интересует минимальное число, которое больше или равно пяти, при этом чётное. К чётным числам относятся числа, которые делятся на 2 без остатка. Число 5 не подходит, смотрим дальше. Число 6 делится на 2? - делится. Число 6 больше  5? - больше.

ответ: 6.

2) НЕ (x<=9) и (x<20). Преобразуем выражение с учётом отрицания "НЕ", получаем

(x>9) и (x<20). Нас интересует минимальное число, которое больше девяти и меньше двадцати. Это число 10.

ответ: 10.

3) (x>16) и НЕ (x - нечётное). Преобразуем выражение с учётом отрицания "НЕ", получаем

(x>16) и (x - чётное). Нас интересует минимальное число, которое больше 16, при этом чётное. 17 подходит? - нет, оно нечётное. Тогда ответ - 18.

ответ: 18.