Question

Напишите программу, которая вводит с клавиатуры число А вычисляет результат В зависимости от введённого значения А по формуле, представленной на фото:

Answer 1

var b,A: integer;

begin

writeln('Введите значение A: ');

readln(A);

if A>0 then

begin

b:=A+5;

writeln('b = ',b);

end

else

if A<=0 then

begin

b:=sqr(A)-1;

writeln('b = ',b);

end;

end.