var a: array [1..10] of integer;
min,max,i: integer;
begin
for i:= 1 to 10 do
a[i]:= random(50)-25;
write(a[i]:4);
end;
end.
