2.
var x: real;
begin
write ('Введите x: ');
readln (x);
if x
else writeln ('y = √',x,' = ',sqrt(x):0:3)
end.
4.
var x: real;
begin
write ('Введите x: ');
readln (x);
if x>0 then writeln ('y = ',x,'^3 - 1 = ',x*x*x-1)
else writeln ('y = ',x,' + 1 = ',x+1)
end.