program qf;
uses crt;
var x,y:integer;
begin
clrscr;
writeln('введи числa');
readln(x,y);
if x>y then writeln(y,x) else writeln(x,y);
readln;
end.
1
lst = [int(input()) for _ in range(int(input()))]
print(*[i for i in lst if i % 2 == 1])
print(len([i for i in lst if i % 2 == 1]))
2
lst = [int(input()) for _ in range(int(input()))]
print(*[i for i in lst[::-1] if i % 2 == 0])
print(len([i for i in lst if i % 2 == 0]))
3
lst = [int(input()) for _ in range(int(input()))]
print(*[i for i in lst if i % 2 == 0])
print(*[j for j in lst[::-1] if j % 2 == 1])
4(вообще индексация начинается с 0, но написано 'порядковыми')
a = [int(input()) for _ in range(int(input()))]
k = int(input('Введите k: '))
print(*[a[i] for i in range(k - 1, len(a), k)])
5(тоже самое, вторым я считаю элемент, который ввели вторым по счету, а не второй элемент по индексу)
a = [int(input()) for _ in range(int(input()))]
print(*[i for i in a[1::2]])
Пиши, если нужно исправить 4 или 5
program les;
var a,b:integer;
begin
writeln(' vedite 4icla ');
readln(a,b);
if a>b then
begin
writeln(b,' ' ,a);
end;
if a<b then
begin
writeln(a,' ',b);
end;
end.