program a;

const A_SIZE=99;

Var src,dst: Array[1..A_SIZE] Of Integer;
i,j,max :Integer;

begin
Randomize;
{* Заполняем массив *}
For i:=1 To A_SIZE Do  src[i]:=1+Random(100);
{* выводим массив *}
For i:=1 To A_SIZE Do  Write(src[i],' ');
Writeln;
max:=0;
{* ищем максимальный элемент *}
For i:=1 To A_SIZE Do
  If src[i]>max Then  max:=src[i];

Writeln('max=',max);
Readln;
j:=1; {* счетчик для массива dst *}
FOR i:=1 to A_SIZE do
    if src[i]<> max then
      begin
      dst[j]:=src[i];
      j:=j+1;
      end;

{* выводим массив результата*}
FOR i:=1 to j-1 do
  Write( dst[i], ' ');
Writeln;
Readln;
end.

Program QP286;
Var
 a,c: Array[1..99] Of Integer;
 q,p,i,max :Integer;
Begin
 Randomize;
 q:=99;
 For i:=1 To q Do
  a[i]:=1+Random(100);
 For i:=1 To q Do
  Write(a[i]:4);
 Writeln;
 Writeln;
 max:=a[1];
 For i:=2 To q Do
  If a[i]>max Then max:=a[i];
 Writeln('max = ',max);
 Writeln;
 p:=0;
 FOR i:=1 to q do
  if a[i]<max then
   begin
    p:=p+1;
    c[p]:=a[i];
   end;
 For i:=1 to p do
  Write(c[i]:4);
 Readln
End.