Нужна помощь: Составить программку по которой компьютер угадает число введеное с

var x,y,a:integer;
c:boolean;
begin
readln(x); считываем

a:=1;
repeat

writeln(a,' попытка выбор компьютера пал на - ');
y:=random(x)+1; задаем просвет рандомом

write(y);
if x=y сопоставляем then c:=true; выходим из цикла в случае фуррора
until c; если с=true тогда выход из цикла, иначе крутимся далее

writeln('Компьютер сделал ',a,' попыток.');
end.

Более доработанная и понятная, если возникают какие-то вопросы - пиши в личку.