Uloha c.6

[admin]

program HADAJ;
uses crt;
var cislo,n,i,pokus:integer;
uhadol :boolean;
begin
clrscr;
writeln('zadaj rozsah');
readln(n);
randomize;
cislo:=random(n+1);
i:=0;
uhadol:=false;
repeat
i:=i+1;
writeln('hadaj');
readln(pokus);
if pokus=cislo then uhadol :=true
else if pokus >cislo then writeln('zadaj mensie')
else writeln ('zadaj vacsie');
until uhadol=true;
writeln('na' ,i, ' pokus si uhadol');
readln;
end.