program solution;var x, y: real;beginwrite('Введите значение x:');readln(x);
if x <= 0 theny := sqr(x)elsey := sqrt(x);
writeln('Результат: ', y);end.
program solution;
var x, y: real;
begin
write('Введите значение x:');
readln(x);
if x <= 0 then
y := sqr(x)
else
y := sqrt(x);
writeln('Результат: ', y);
end.