var
x, y: real;
begin
readln(x);
if (x <= 0) then
y := sqr(x)
else
y := sqrt(x);
writeln(y);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.