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

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