функция random

Ответ от Александр Осипов[гуру]
Вот пример такой программы: VAR x,p,i:integer; BEGIN Randomize; {Чтобы каждый раз числа новые были} x:=random(10)+1; {+1 потомую что random возвращает от 0} Writeln('Компьютер задумал число от 1 до 10'); Writeln('Угадайте его за 3 попытки'); for i:=1 to 3 do begin write('x='); readln(p); if p = x then break else if p>x then writeln('Задуманное число меньше') else writeln('Задуманное число больше'); end; if p = x then WriteLn('ВЫ УГАДАЛИ! ') else WriteLn('Вы не угадали. Задуманное число ',x); END.