function Rank(x: longint): byte;
begin
  Result := 0;
  while x <> 0 do
  begin
    Result += 1;
    x := x div 10;
  end;
end;

label goback;

var
  x: integer;

begin
  goback:
  x := ReadLnInteger('Введите число:');
  if Rank(x) <> 4 then goto goback else WriteLn('Результат: ', x);
end.