составить блок схему

[Азамат1]

uses crt;
var
i, n : integer;
s: real;
begin
s:=0;
for i:=0 to n do
s:=s+sqrt(2+i);
write('Сумма ряда равна ',s);
end.

[BDA]

Уже третья тема про одну и ту же задачу.
Для создания блок-схемы используйте FCEditor.
И прислушайтесь к совету Poma][и в другой теме (программа считает неправильно).