Напишите на языке Паскаль программу для игры "Угадай число" (промежуток от 1 до 8)

var n,rand: Integer;beginwriteln('Введите любое число от 1 до 8');readln(n);rand:=random(8-1+1)+1;if rand=n then writeln('Вы отгадали число!') else writeln('Вы не отгадали. Было загадано число ',rand);end.