uses
  crt;

begin
  var i := 0;
  var buf := '';
  Write('Введите четырехзначное число: ');
  while i < 4 do
  begin
    var ch := Readkey;
    if ch in [#48..#57] then
    begin
      Write(ch);
      buf += ch;
      i += 1;
    end
    else
    begin
      WriteLn('Упс...ошибочка...;(');
      Sleep(5000);
      Exit;
    end;
  end;
  WriteLn;
  var x := StrToInt(buf);
  WriteLn('Результат: ', x);
end.