Поиск суммы от 1 до N. Составить блок схему

Прости, стрелка от "начало" до "ввод последнего числа" не ввелась. Там она есть

//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)varn, sum: integer;beginsum := 0;write('Введите последнее число ----> ');read(n);for var i := 1 to n dobeginsum += i;end;write(sum);end.