Вопрос Перенесите из Питона в Паскаль (Хотя я на питоне сделал вроде неправильно) - фотку задачи приложу

a = 0
b = int(input())
c = int(input())
ans = 0
anst=0
for i in range(0,c):
d = int(input())
if ans + d <= b:
ans = ans + d
else:
anst = anst + d
print(ans)
print(anst)
Перенесите это в Pascal прошу в ЛС!
ЛИБО ЛУЧШЕ РЕШИТЕ САМИ НА ПАСКАЛЕ!
//otvet.imgsmail.ru/download/u_adc6dfd6c1f4403544e955eb95bbfebe_800.jpg