Anonymous

program Aliz;
var a:Integer;
begin
 Write('Kerek egy szamot:');
 ReadLn(a);
 if(a>=0) then {Nem negativ}
  begin
   WriteLn(sqrt(a):0:2);
  end 
   else 
    begin
     WriteLn(a*a);
    end;
 ReadLn;
end.