Пожалуйста помогите составить блок-схему
Program Z3;var i,N : byte;     S : real;beginwriteln('Введите N =');readln(N);S := 0;for i :=1 to N dos:=s+i;writeln('S= ', S);readlnend.