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