перед a,b:integer; нету слова var
Т.е. должно начинаться
var a,b:integer;
Предлагаю вариант в VBA Excel
Код программы можно увидеть нажав Alt+F11
Аня математика
Саша География
Лена История
Вася Литература
Миша Информатика
Ответ: 1
Так как более короткая дорога из пункта А ведёт в Е, а из него можно доехать до В, то посчитаем этот путь.
2+3=5
т. к. 5 это наименьший вариант среди предложенных вариантов ответов, то берём его
X=[] # задаем пустой список для чисел
while True: # открываем бесконечный цикл
i=int(input()) #вводим целое число
if i!=0: # если это число не 0
x+=[i] # то запишем его в список
else:
break # иначе стоп циклу
mx=max(x) # найдем максимальный элемент в списке
k=0 # зададим начальное значение счетчику 0
for i in x: # для каждого числа из списка х
if i==mx: # если это число равно максимуму
k+=1 # увеличим счетчик на 1
print(k) # вывод счетчика