{ HADAJ_CISLO2.PAS                               Copyright (c) Pheo }
{ Hra hádaj číslo (s nápovedou).                                    }
{                                                                   }
{ Datum:18.01.1996                             http://www.trsek.com }
 
program hadaj_cislo2;
uses crt;
var a,c,p:integer;
 
begin
  randomize;
  a:=random(100);
  p:=0;
  writeln('Hladaj cislo do 100');
  
  while c<>a do begin
    p:=p+1;
    read (c);
    if c<a then writeln ('vacsie');
    if c>a then writeln ('mensie');
  end;
 
  if p<=5 then writeln('Gratulujem, uhadol si na ',p,'. pokus')
          else writeln ('No to trvalo! Az na ',p,'. pokus');
  readln;  
end.