Написать алгоритм вычисления функции на паскале
​

<<A>>

a = [int(x) for x in input("Введите три целых числа:\n").split()]
max = a[0]
for i in a:
if i > max:
max = i
print("Максимальное число: {}".format(max))

<<B>>

a = [int(x) for x in input("Введите пять целых чисел:\n").split()]
max = a[0]
for i in a:
if i > max:
max = i
print("Максимальное число: {}".format(max))

<<C>>

ages = []
names = ["Антон", "Борис", "Виктор"]
for name in names:
ages.append(int(input("Возраст {}а: ".format(name
j = 0
M = []
m = max(ages)
for age in ages:
if age == m:
M.append(j)
j += 1
if len(M) == 1:
print("{} старше всех.".format(names[M[0]]))
elif len(M) == 2:
for i, v in enumerate(names):
if i not in M:
young = v
print("{} и {} старше {}а.".format(names[M[0]], names[M[1]], young))
else:
print("Все трое одного возраста.")

(начало)
|
/a,b,c/
| - +
< a>b and a>c > - /a/
| - + |
< b>c > /b/
| - |
/c/(konec)

(начало)
|
/a,b,c,d,e/
| - +
< a>b and a>c and a>d and a>e> - /a/
| - + |
< b>c and b>d and b>e > /b/
| - + |
< b>d and b>e > - /c/
| - + |
< d>e > /d/
| - |
/d/(konec)

(nachalo)
|
/a,b,c/
| +
< a=b and b=c >/'Wse starshe wseh'/
| - + + |
< a=b >< a > c >/'A u B starshe C'/
| | - |
| +/'C starshe wseh'/
| - + + |
< b=c >< b > a >/'B u C starshe A'/
| | - |
| +/'A starshe wseh'/
| - + + |
< a=c >< a > b >/'A u C starshe B'/
| | - |
| +/'B starshe wseh'/
| - + |
< a>b and a>c > /'A starshe wseh'/
| - + |
< b>c > /'B starshe wseh'/
| - |
/'C starshe wseh'/(konec)