Pascal/Turbo Pascal - Lectura con solo presionar un boton

holas
pos kisiera saber como hago para cuando me pida leer un numero ke al precionar cualkier numero le leea intantaneamente sin presionar el ENTER..

pos eske kier hacer un convertidor por mi mismo y kiero ke si se digita 125

A = 1
B= 2
C=3
`por ejemplo
y la unica forma ke se me ocurrio de dividirlo fue la leerlo al solo presionar una numero,,
pero fue un fracaso porke no supe como,,

SI alguien me pueda ayudar me dice..

Saludos

Se me ocurre que cada número lo salves por tecla presionada, es decir que si aprietas la tecla con el num 1 se guarde el 1.

Primero tiene que declarar tanto a "A" "B" y "C" que son sus variables como Char, luego asigna; a:=readkey; b:=readkey;...... y así, luego si quiere salva todo eso en un vector, o asigna otras variables...

Espero que le sirva un poco

No me quedó muy claro si lo que se busca es que el usuario ingrese la secuencia 1,2,5 o el número 125. Supondré que es lo primero.

uses crt;
var
A:char;
B:byte;
C:integer;
begin
repeat
A:=readkey;
if A in ['0'..'9'] then
begin
Val(A,B,C);
Writeln(B);
end;
until A=#27;
readkey;
end.

En la variable B, que es de tipo byte quedaría el valor numérico de la tecla presionada. Tú sabrás qué hacer con él más tarde.

pos mira lo ke pregunto eske el usuario digite el numero 125 pero en verdad lo ke la makina entendio fue 1,2,5.

esa era la pregunta..

saludos

Para este ejemplo suponemos que la longitud del numero es menor igual de 3 caracteres siempre debe haber algun dato o parametro que nos permita decir hasta aqui se lee.
Program Prueba ;
Uses Crt;
Var
cont,numero, col: integer;
tecla : char;

begin
clrscr;
cont := 1;
col:=5;
numero:=0;
while cont < 3 do
begin
gotoxy(5,col); tecla:=readkey;
gotoxy(5,col);write(tecla);
case tecla of
'0' ..'5' : cont:=cont + 1
col:=col+1;;
numero:=numero * 10 + ord(tecla) - 48;
otherwise
begin
gotoxy(5,col);write(' ');
end
end case
end while
gotoxy(7,5);write('El Numero Digitado es ',numero);
readln();

end .

Pruebalo y medices no tengo en estos momentos un compilador y hace mucho tiempo no desarrollo de TP.

Bien, parece que luis lo ha implementado bien, sin embargo hay cosas qué arreglar para el programa compile bien en TP (suponiendo que DJETER2 lo quiera en TP o compatible). Aquí va:
Uses Crt;
Var
cont,numero, col: integer;
tecla : char;

begin
clrscr;
cont :=1;
col:=5;
numero:=0;
while cont < 3 do
begin
gotoxy(5,col);
tecla:=readkey;
gotoxy(5,col);
write(tecla);
case tecla of { <--- esto puede reemplazarse por un if }
'0' ..'5' :begin
cont:=cont + 1;
col:=col+1;
numero:=numero * 10 + ord(tecla) - 48;
end
else
begin
gotoxy(5,col);
write(' ');
end;
end; { case }
end; { while }
gotoxy(7,5);
write('El Numero Digitado es ',numero);
readkey;

end .

pos mira me funciono biem pero luis rivaldo el ke me mandaste dio algunos errores de sintaxis osea te faltaban algunas cosas como el end; ke kreo ke lo pusiste abajo y no lo captaba el TP,,

pos bueno como kiera entendi la idea gracias a todos.

Saludos