sustava

program sustava;
{$APPTYPE CONSOLE}
uses SysUtils;
var x,z:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Zadajte cislo x: ');
  readln(x);
  repeat
    write('Zadajte cislo z: ');
    readln(z);
    if (0<z) and (z>=10) then writeln('Zadali ste spatne cislo!');
  until (0<z) and (z<=10);
  if (x<z) or (x>z) then writeln('Cislo moze byt zapisane');
  readln;
end.