напиши программу НА ПАСКАЛЕ,только чтобы 3 элемента выводил!!!

спасибо вам,огромное)

Точки образуют цепочку, в них как бы результат работы предшественника отдается на вод последователю

Пожалуйста

var a: array  [1..20] of integer;i,j : integer;    buf : integer;    cnt : integer;begin for i:=1 to 20 do begin                   a[i] := random(100)+200;                   write(a[i],' ');                   end;  for i:=1 to 20 do    for j:= 1 to 20 do          if(a[i]<a[j]) then    begin      buf := a[i];      a[i]:= a[j];      a[j]:= buf;    end;      writeln();     writeln('top --> ',a[20],' ',a[19],' ',a[18]);end.