Dze je subor www.TrSek.com/zadania/hadaj_cislo2.pas

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

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com