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

program zz1;

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

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

begin

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

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

read(a);  

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

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

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

end.