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

//Написано на PascalABCCompiler.Core v3.3.0.1540 (16.09.2017)

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