Программа

Program Pilshikov_5_43 (input,output);
{ Дано не менее трех различных
  натуральных чисел, за которыми
  следует 0. Определить три
  наибольших числа среди них.   }
Var a,b,c,x:integer;
BEGIN
  Write('Введите число ');
  Readln(c);
  Write('Введите число ');
  Readln(x);
  if x>=c then b:=x
          else begin b:=c; c:=x end;
  Write('Введите число ');
  Readln(x);
  if x>=b then a:=x
          else if x>=c then begin a:=b; b:=x end
                       else begin a:=b; b:=c; c:=x end;
  Write('Введите число ');
  Readln(x);
  while x>0 do
    Begin
      if x>c then c:=x;
      if x>b then begin c:=b; b:=x end;
      if x>a then begin b:=a; a:=x end;
      Write('Введите число ');
      Readln(x)
    End;
  Writeln('Максимальные числа ',a,' ',b,' ',c)
END.