var b,A: integer;beginwriteln('Введите значение A: ');readln(A);if A>0 thenbeginb:=A+5;writeln('b = ',b);endelse if A<=0 thenbeginb:=sqr(A)-1;writeln('b = ',b);end;end.