Составить программу по данной блок схеме.

#pascal

program xy;

    uses crt;

    var x: real;

        y: integer;

begin

    clrscr;

    writeln('enter x');

    readln(x);

    if x > 0 then y : = 1

    else  

        if x < 0 then y : = -1

        else y : = 0;

    writeln('y is ', y);

    readln

end.

var x,y: integer;

begin

  readln(x);

  if(x> 0) then y: =1

  else begin

    if(x< 0) then y: =-1

    else y: =0;

  end;

  writeln(y);

end.

собирается-журналист  опрашивает  людей  для  статьи

обрабатывается-ученик  решает 

-учитель  объясняет  материал 

создается-все  тот  же  журналист  придумывает  статью

запоминается-парнеь запоминает  номер  телефона  девушки

измеряется-программист  рассчитывает  сколько  бит  займет  программа

копируется-ученик  списывает  у  одноклассника

передается-две  девушки  обмениваются  новостями

принимается-ученики  слушают  учителя  на  уроке

разрушается-придуманная  выше  указанным  журналистом  статья 

делится  на  части-человек  разбирает  сообщение  в  котором  пропущены  пробелы

ищется-человек  ищет  материал  для  доклада  в  интернете

подробнее - на -

алгоритм слова "баобаб"

:     процедура б нач (записывай в столбик) шаг-поворот-поворот-поворот-шаг-шаг-поворот-поворот-шаг-поворот-шаг-поворот-шаг-поворот-поворот-поворот-шаг-поворот-поворот-поворот-шаг-прыжок кон     процедура а нач шаг-поворот-поворот-поворот-шаг-шаг-поворот-поворот-поворот-шаг-поворот-шаг-поворот-шаг-поворот-поворот-шаг-шаг-поворот-поворот-поворот кон   процедура о нач шаг-поворот-поворот-поворот-шаг-шаг-поворот-поворот-поворот-шаг-поворот-поворот-поворот-шаг-шаг-поворот-поворот-поворот-шаг-прыжок

алг баобаб

нач (столбиком тоже) сделай б - сделай а - сделай о - сделай б - сделай а - сделай б кон