Program Linao;
uses crt;
const n = 20;
var
  x:array [1..n] of real;
  i,k,j,sum:integer;
  max, min,temp: real;
begin
  writeln('*** alphaues is thinking... ***');
  for i:=1 to n do
    begin
      write('*');
      for j:=1 to n*100000 do j:=j;
    end;
  writeln;
  k:=0;
  randomize;
  sum:=0;
  writeln('негативні елементи: ');
  for i:=1 to n do
    begin
      x[i]:=random(101)-50;
      if x[i]<0 then
        begin
          sum:=sum+i;
          writeln(i,'-й елемент, рівний ',x[i]);
          k:=1;
        end;
    end;
  if k=0 then
    writeln('Немає таких елементів!');
end.