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.