Про программирование клавиатуры.Паскаль 7.0

[Almost456]

Всем здорово.
Как ограничить нажатие клавиш при вводе цифр?Например до 4.
Ввести n=1234.
Вот как то написать надо чтобы 4 раза была нажата клавиша.Кто знает помогите написать...
П. С. Снизу не рабочая прога.

uses crt;
var n,k,p,m,i:integer;
ch:char;
begin
ClrScr;
repeat
gotoxy(5,5);
write('n=');
readln(n);
until keypressed;
end.

[Greblin]

После ввода 4 цифр послать клавиатуре сигнал самоуничтожения
А если серьёзно, то надо просто считывать посимвольно, т.е. что-то вроде

var i, n: integer; c: char;
...
n := 0;
for i := 1 to 4 do
  begin
  read(c);
  n := n * 10 + (c - "0");
  end;

[Serge_Bliznykov]

Вы уверены, что задача перед Вами стоит именно так, как Вы её пытаетесь решить?!
Просто я вижу два подхода:
1) перехватывать нажатия клавиш, анализировать, какую нажали, корректно обрабатывать забой (а в принципе, если уж идти по этому пути, обрабатывать стрелочки, клавиши Delete, Home, End - т.е. писать простенький однострочный редактор строки). в этом случае Вы легко сможете недопустить нажатие нецифровых клавиш, обеспечить ввод по маске ограничить длину вводимой строки и т.д. и т.п.
но это не очень просто.

2) давать вносить ЧТО УГОДНО. Хоть буквы, хоть цифры, хоть закорючки с палочками..
По нажатию Enter - анализировать введённую строку, если условия проверки не выполнены (ну, например, это ввели не число, или длина больше допустимой), ругаться на экран гневными сообщениями и заставлять вводить так, как требуется.
Это подход очень прост, реализуется буквально одной/двумя строчками простейшего кода.

я Вам рекомендую как раз вторым способом воспользоваться! пример смотрите мой пост вот здесь - "Pascal. Можно ли исправить ошибку?"

[Almost456]

Лучше конечно вторым способом
Значит мне надо подсчитать кол-во цифр в строке и когда я введу>4,то вывести сообщение "Слишком большое число".
А как это примерно сделать. может так...

uses crt;
var n,k,p,m,i:integer;
begin
ClrScr;
gotoxy(5,5);
write('n=');
readln(n);
m:=n; k:=0;
while m<>0 do begin
p:=n mod 10;
inc(k);
m:=m div 10;
end;
gotoxy(5,6);
write('k=',k);
if k>4 then begin
gotoxy(7,5);
write('Большое число');
end;
readln;
end.