заполните таблицу истинности

program vvl;

var x: integer;

      v: real;

begin

write('x=');

readln (x);

v: = abs(a)-2;

writeln ('v='; v: 2: 1);

end.

смотри схему                                                  

var a,b,c: integer;

begin

clrscr;

readln(a,b,c);

          if a = b then writeln(c);

          if b = c then writeln(a);

          if a = c then writeln(b);

readkey;

end. 

1шаг влево

2шага вниз

1шаг направо

1шаг вверх

1шаг влево

если с поворотами то примерно так:

1шаг влево

повернуться против часовой стрелки

2 шага прямо

повернутся против часовой стерлки

1шаг прямо

повернуться против часовй стрелки

1 шаг прямо

повернуться против часовй стреки

1 шаг прямо