Ответы и объяснения

2013-05-14T09:52:11+00:00

Program Variant3;
var b,k:integer;
y:Extended;
begin
write('B = ');
readln(b);
if b<0
then
begin
y:=(3*b+1)*(3*b+1);
writeln('Y = ',y);
end;
if b>=0
then
begin
y:= SQRT(b);
writeln('Y = ',y);
end;
readln;
end.