написать блок схему по коду

Влодку сначала садятся один купец и один разбоник перебираются на другой берег остается разбойник купец возвращаетя обратно забирает разбойника едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает разбойника едут на другой берег и высаживаются оба лодка совершила 9 рейсов

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

1/512 мб = 1024/512 кб = 2 кб = 2048 байт = 2048 * 8 бит на 1 символ отводится 2048 * 8 бит / 2048 = 8 бит объём алфавита 2^8 = 256 символов

program zadacha2;

  uses crt;

  var i,n,a: integer;

            b,y,c,l: real;

begin

clrscr;

readln(n);

  a: =1;

  b: =2;

  c: =5;

  for i: =1 to n do                                                                                          

                                                                                                  begin  

if a mod 2 = 0 then

l: =a+b/c

else          

l: =a-b/c;

a: =a+1;

b: =b+2;

c: =c+5;

y: =y+l;

                                                                                                    end;

writeln(y: 2: 2);

readkey;

  end.

первую по подробней расспишите