var a:array [1..100] of real;
i,n:integer;
begin
randomize;
writeln ('Vvedite kol-vo elementov');
readln (n);
for i:=1 to n do 
a[i]:=random(100)-50;
writeln ('Massiv');
for i:=1 to n do 
write (a[i],' ');
for i:=1 to n do 
if (a[i]>0) then a[i]:=a[i]*8 else
if a[i]<0 then a[i]:=a[i]/3;
writeln;
writeln ('New Massiv');
for i:=1 to n do 
write (a[i]:0:1,' ');
end.