Pascal - Игра "Угадай число"

[d_b]

Игра "Угадай число". Программа с помощью датчика случайных чисел выбирает число в диапазоне от 0 до 9. Угадать это число за три попытки. После каждой попытки сообщает, больше или меньше названное задуманного.
СПАСИБО!

[-HunteR-]

Ну так задай число через random, потом цикл с условием!

[Sazary]

А что конкретно не понятно?
Вы сами пытались сделать? Если да, то выложите свой код.

[начинающий кодер]

http://turbopaskal.ru/?p=36 первая в яндексе и еще 41 тыс страниц!!!!

[deu4er]

покажи че написал (:

[d_b]

uses Crt;
var
n, m : byte;
begin
clrscr;
randomize;
m := random (9);
repeat
write ('Kakoe 4islo 3adumala programma? ');
readln (n);
if n<m then writeln ('Na3vannoe menshe 3adumannogo')
else
if n>m then writeln ('Na3vannoe bolshe 3adumannogo')
else writeln ('ugadano!!!');
until n = m;
readln
end.
Помогите с циклом, чет не понимаю как под "три попытки" сделать

[XeN0N]

вместо repeat .... until цикл
for i:=1 to 3 do
begin
if (..) ..
else (...) ..
else (...) ... break;
end;

[alex_fcsm]

uses crt;
var i,n,x:integer;
    ch:char;

begin

repeat
clrscr;
n:=random(10);
i:=0;
repeat
inc(i);
readln(x);
if x>n then writeln('>')
   else if x<n then writeln('<')
         else writeln('Success');
until (i=3)or(x=n);
writeln('Again?(y/n)');
ch:=readkey;
until ch='n';
end.

[d_b]

списибо огромное