l = list(map(int,input().split())) # <em>ввод чисел
</em>
a = [] # массив для вторых цифр
for i in range(len(l)):
a.append(l[i] % 10) # <em>заполнение массива вторыми цифрами
</em>
print(l[a.index(max(a))]) # <em>вывод числа, в котором вторая цифра больше </em>
Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
В libre office и open office - Writer. Остальные программы перечислили ранее.