hra

//Napiste app. pocitac vygeneruje cislo v danom rozsahu uzivatel toto cislo hada program vypisuje pridaj alebo uber. Ak cislo uhadne vypise gratulaciu a na kolki pokus si to cislo uhadol a napise samotne cislo
program hra;
{$APPTYPE CONSOLE}
uses SysUtils;
var r,g,sc,c:byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Aky rozsah cisiel chces?: ');
  readln(r);
  randomize;
  g:=random(r+1);
  sc:=0;
  repeat
    write('Zadajte cislo: ');
    readln(c);
    if c=g then
      begin
        writeln('Uhadol si cislo! Cislo bolo: ',g);
        writeln('Cislo si uhadol na ',sc,' pokus');
      end;
    if c<g then
      begin
        writeln('Pridaj');
        sc:=sc+1;
      end;
    if c>g then
      begin
        writeln('Uber');
        sc:=sc+1;
      end;
  until c=g;
  readln;
end.