Компьютер загадывает число из диапазона от 1 до 100 и предложил…

var i, j, k: integer; begin i: =1+trunc (random (100); j: =0; repeat writeln ('Введите число'); read (k); inc (j); until k=i; writeln ('Верно. Отгаданно с ', j, ' попытки. '); end.