Question

Составьте пожалуйста программу на Паскале (2). Только правильно!

Answer 1

var b, y:real;
begin
writeln("введите B);
readln(b)
if b < 0 then y := sqr(3 * b + 1);
else y = y:=sqrt(b);
writeln(b);
end.