https://pastein.ru/t/I-

  скопируйте уникальную ссылку для отправки

var i,sum,jislo: integer;
begin

end.