Найти три максимальных элемента последовательности (Паскаль)

[Serge_Bliznykov]

с массивом и сортировкой решение простое, но не очень эффективное.

вот решение без использования массива:

var max:array[1..3] of integer;
  a : integer;
  i,j,k : integer;
begin
 i:=1;
 readln(a);
 while a<>0 do begin
  if i=1 then begin
        max[1] := a;
        inc(i);
  end
  else
    if i=2 then begin
      if max[1]<>a then begin
        if a<max[1] then max[2] := 2
        else begin max[2] := max[1]; max[1] := a end;
        inc(i)
      end;
    end
    else
      if i=3 then begin
        if (a<>max[1]) and (a<>max[2]) then begin
          j:=1;
          while (j<3) and (a<max[j]) do Inc(j);
          for k:=3 downto j+1 do max[k] := max[k-1];
          max[j] := a;
          inc(i);
        end;
      end
      else {массив из 3-х уже полностью заполнен}
         if (a<>max[1]) and (a<>max[2]) and (a<>max[3]) then begin
           j:=1;
           while (j<=3) and (a<max[j]) do Inc(j);
           if j<4 then begin
             for k:=3 downto j+1 do max[k] := max[k-1];
             max[j] := a;
           end;
           { Write('new massive: '); for k:=1 to 3 do write(max[k]:2,' ');  - это для отладки!}
         end;
   ReadLn(a);
 end;
 write(max[1]:5,max[2]:5,max[3]:5);
 readln;
end.

[ANTON255200]

разобрался вроде.
К примеру, члены последовательности по модулю не превосходят 1000000000 (10 в девятой степени).

var max1,max2,max3,a: longint;
begin
max3:=-1000000003;
max2:=-1000000002;
max1:=-1000000001;
read(A);
WHILE a<>0 do begin
if a>max1 then begin max3:=max2; max2:=max1; max1:=a;  end; //второй становится третьим, а первый - вторым
if (a>max2) and (a<max1) then begin max3:=max2; max2:=a; end; //второй становится третьим, первый не меняется
if (a>max3) and (a<max2) then max3:=a;
read(a);
end;
writeln(max1);
writeln(max2);
writeln(max3);
end.