#Python 3.6.1
def find_double(items):
L = len(items)-1
for i in range(L):
for j in range(L-i):
if items[i] == items[j+i+1]:
return i
return L+1
print("Введите элементы через пробел:")
a = input().split()
print(a)
print(find_double(a))
Источник_____Информационный канал_____Приёмник
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a,b,c,sum,p:integer;
sr:real;
begin clrscr;
write('a='); read(a);
write('b='); read(b);
write('c='); read(c);
sum:=a+b+c;
writeln(a,'+',b,'+',c,'=',sum);
p:=a*b*c;
writeln(a,'*',b,'*',c,'=',p);
sr:=sum/3;
writeln('sredn./arifm.=',sr:2:3);
readkey;
end.
Во-первых, нельзя называть программу и переменную одним именем, а лучше вообще не пользоваться program. Во-вторых, максимально возможное из целых положительных integer=2147483647