Які бувають форми подання алгоритмів Скреч
​

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

Программа "Буква Т"

нач

    шаг

    шаг

    шаг

    шаг

    поворот

    прыжок

    прыжок

    поворот

    шаг

    шаг

    шаг

    шаг

кон

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

Программа  "Буква Н"

нач

    поворот

    поворот

    поворот

    шаг

    шаг

    шаг

    шаг

    поворот

    поворот

    прыжок

    прыжок

    поворот

    поворот

    поворот

    шаг

    поворот

    прыжок

    прыжок

    поворот

    поворот

    шаг

    шаг

    шаг

    шаг

кон

Стрелочка находится наверху, смотрит справо