Дана непустая последовательность ненулевых целых чисел, за которой следует 0 (0 - признак конца последовательности)

var
  X,min1,min2,min3: integer;
begin
  writeln('Вводите целые числа, для завершения ввода введите ноль: ');
  readln(x); 
  repeat
  readln(x);
   if X <> 0 then
    begin
      if X < min1 then
      begin
          min3 := min2;
          min2 := min1;
          min1 := X;
      end
      else
      if (X < min2) and (min2 < min1) then
      begin
          min2 := X;
          min3 := min2;
      end
      else
      if (X < min3) and (min3 < min2) then
      begin
         min3 := X
      end
      else
    end;
  until X = 0;
  writeln(min1:10, min2:10, min3:10);
end.

Program MyProgram;
uses crt;
var
    min1, min2, min3, x: integer;
    sch: integer;
begin
clrscr;
sch:=0;
writeln('Vvodite chisla');
writeln('Vvedite "0" dlya vyhoda');
readln(x);
while x<>0 do
begin
sch:=sch+1;
if sch=1 then begin
min1:=x;
min2:=x;
min3:=x
end else if sch=2 then begin
    if x<min1 then min1:=x else
    min3:=x;
end else if sch=3 then begin
    if x<min1 then begin
    min2:=min1;
    min1:=x;
    end else if x>min3 then begin
    min2:=min3;
    min3:=x;
    end else
    min2:=x;
end else begin
if x<min3 then begin
    if x<min1 then begin
    min3:=min2;
    min2:=min1;
    min1:=x;
    end else if x<min2 then begin
    min3:=min2;
    min2:=x;
    end else
    min3:=x;
end;
end;
readln(x);
end;
writeln(min1:10, min2:10, min3:10);
readln;
end.

var
  a,b,c,min1,min2,min3: integer;
begin
  writeln('Введите 3 числа:');
  read(a,b,c);
  if a<b then min1:=a else min1:=b;
  if c<min1 then min1:=c;
  if a>b then min3:=a else min3:=b;
  if c>min3 then min3:=c;
  min2:=a+b+c-min1-min3;
  writeln('Вводите целые числа, для завершения ввода введите ноль: ');
  repeat
  read(a);
  if a<>0 then
    begin
     if a<min1 then
      begin
       min3 := min2;
       min2 := min1;
       min1 := a;
      end
     else
      if a<min2 then
       begin
        min3 := min2;
        min2 := a;
      end
    else
     if a<min3 then min3 := a
  end;
 until a = 0;
writeln(min1,' ',min2,' ',min3);
end.