d

//Zostavte program na zistenie či načítané čislo x môže byť číslom zapísané
//v sústave z ktoré tiež zadávame. Zabezpečte aby platilo že z je väčšíe ako 0<z=<10
program retazec;
{$APPTYPE CONSOLE}
uses SysUtils;
var x:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte cislo: ');
  readln(x);
  repeat
    writeln('Zadajte cislo: ');
    readln(z);
  until 0<z=<10;
end.