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