{ OPAKOVANIE.PAS                                                    }
{ Program vas vyskusa v typovani cisel :)                           }
{                                                                   }
{ Datum:26.11.2011                             http://www.trsek.com }

Program Opakovanie;
uses crt;

var
I:integer;
tip:integer;

begin
randomize;
I:=(random(100)+1);
writeln(I);

repeat
readln(tip);
      if I > tip then
         writeln('Skus vacsie cislo');
      if I < tip then
         writeln('Skus mensie cislo');
      if I = tip then
         begin
         textcolor(lightgreen);
         writeln('Gratulujem uhadol si.');
         end;
until I = tip;
readln;
end.