SoloCodigo

lo logre resolver .. no me tiraba nada.. estaban mal los contadores
program ej7;
uses crt;
var
texto:string;
code,x,cont:integer;

begin
cont:=0;
x:=0;
writeln('ingrese un texto');
readln(texto);

repeat
cont:=cont+1;

until (texto[cont]>='0') and (texto[cont]<='9')  ;
texto:=copy(texto,cont,2);
val(texto,x,code);
if code = 0 then begin

writeln(x*2);
end;
readkey;
end.

buenas Tarde gente.. me han dado un problema q me han dado y es el siguien: Mostrar el valor doble de dos cifras encontrado en una cadena
program ej2;
uses crt;
var
texto:string;
code,x,cont:integer;

begin
cont:=0;
x:=0;
writeln('ingrese un texto');
readln(texto);

repeat
cont:=cont+1;

until (texto

• >='0') and (texto
• <='9')  ;

texto:=copy(texto,cont,2);
val(texto,x,code);
if code = 0 then begin

writeln(cont*2);
end;
readkey;
end.
se q esta mal xq no se resuelve pero compila...
ayuda porfa .. muchas gracias desde ya