{ 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.