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

var
n, sum: integer;
begin
sum := 0;
write('Введите последнее число ----> ');
read(n);
for var i := 1 to n do
begin
sum += i;
end;
write(sum);
end.

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