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

[takashy80]

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

 

[DJRamon]

350815 Спааайс, соооль, фееен, гаашииш. Продаем через заклаадки. перед покупкой всегда уточняйте свой город. Связь через телеграмм: @stuff_rc

 

[awneekr]

Нaшел нoвую игру. Boобще не мoгу оторвaться нaйmи в vk com /new_game_you