Program zadacha;
var x:integer;
begin
readln(x);
if (x>=0) and (x<=10) then writeln(x*x)
else writeln(sqrt(x));
end.
Объяснение:
