Примеры алгоритмов из повседневной жизни: перехода через проезжую часть дороги

1. подойти к пешеходному переходу 2.посмотреть влево 4. убедиться, что транспорт не движется или отсутствует 5. дойти до середины дороги, по пешеходному переходу 6. посмотреть вправо 7. убедиться, что транспорт не движется или отсутствует 8. перейти на другую сторону дороги

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.

как-то

program g; vara, b : integer; n : integer; s : integer; z: array[0..16] of integer; i : integer; v: integer; begina: =(-20); b: =20 ; n: =16 ; for i : = 1 to n dobegins : = trunc(random(b-a)+a); writeln (i: 2,'-е случайное число: ',s: 4); end; beginwriteln('индексы элементов кратных 3: '); for v: =0 to 16 do begin z[v]: =random(40)-20; if z[v] mod 3 = 0 then write(v, ' ') end; end; end.