Составить блок схему и алгоритм нахождения суммы первых двадцати натуральных чисел много

Ниже программа на Паскале, в которой находится требуемая сумма. Блок-схема - в прилагаемом файле.
var i,s : integer;
begin
s:=0;
for i:=1 to 20 do s:=s+i;
writeln('s=',s);
end.