Перевод из Python в Pascal
import sys sys.stdin=open('finance.in', 'r') sys.stdout=open('finance.out', 'w') c = [] for i in range(14): a, b = map(int, input().split()) c.append(int(b)) print(min(c))
import sys sys.stdin=open('finance.in', 'r') sys.stdout=open('finance.out', 'w') c = [] for i in range(14): a, b = map(int, input().split()) c.append(int(b)) print(min(c))