Написать алгоритм по угадыванию чисел в диапазоне от 1 до 8

program zz1;

label 1; / / описываем метку для перехода

var a, b:integer; / / задаем переменные целого типа

begin

b:=random (8) + 1; / / получаем случайное число в диапазоне от единицы до восьми

1:write (' введите число от 1 до 8 '); / / вводим с клавиатуры число в диапазоне от единицы до восьми

read (a);

if (a b) / / проверяем условие, если введенное число не равно случайному, то

then begin writeln (' не угадал '); goto 1; end / / выводим ответ и переходим на метку

else write (' угадал '); / / выводим другой ответ

end.