Вроде так :
Матвей (третья согл и последняя согл)
3 (x>2 x<=3)
3 (x>2 x<4)
Программа с использованием вспомогательной переменной:
var a,b,c:integer;
begin
readln(a,b);
c:=a;
a:=b;
b:=c;
writeln(a,' ',b);
end.
Пример:
3 5
5 3
Предлагаю один из вариантов реализации
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(11)+10;
write(a[i]:3,' ')
end;
writeln;
write('x = ');
readln (x);
for i:=1 to n do if a[i]=x then writeln('A[',i,'] = ',a[i])
end.