Question

помогите ,умоляю .решите задачу по информатике через begin

1) случайным образом подбираются два числа в случайном диапазоне. при их равенстве выводится на экран с задержкой соответствующее текстовое сообщение, при их неравенстве - рандомятся ещё два числа и выводятся на экран в одной строке.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var (a,b):=(Random(0,10),Random(0,10));
  if a=b 
    then Println(a,'=',b)
    else Println(Random(0,10),Random(0,10));
end.