https://pastein.ru/t/I-
скопируйте уникальную ссылку для отправки
Загрузка данных
var i,sum,jislo: integer; begin end.