1. Составить программу в паскале…

program cvdcniouses crt; var a: string; beginclrscr; case a of'Направо': writeln ('Коняш'); 'Налево': writeln ('Голова'); 'Вперед': writeln ('Невестка'); readlnend. program fcndkjn; uses crt; var a: integer; beginclrscr; readln (a); if a>0 then writeln (+) else writeln (-); readln; end. program fmc; uses crt; var a: integer; beginclrscr; readln (a); if a>0 then writeln (a+1) else writeln (a-1); readln; end. Надеюсь тут в условии, не b<0, а a<0