var 
  Mas:array of real;
  Count, i:Cardinal;
begin
//ввод
Write('Длина массива?');
Readln(Count);
Setlength(Mas, Count);
For i:=0 to Count-1 do
begin
  Readln(Mas[i]);
end;
//Решение
For i:=0 to Count-1 do
begin
  If Mas[i]<0 then Mas[i]:=Mas[i]/3
    else Mas[i]:=Sqrt(Mas[i]);
end;
Writeln('');
For i:=0 to Count-1 do
begin
  Writeln(Mas[i],'; ');
end;
end.