Умоляю .решите по информатике через begin 1) случайным образом подбираются два числа в случайном диапазоне. при их равенстве выводится на экран с задержкой соответствующее текстовое сообщение, при их неравенстве - рандомятся ещё два числа и выводятся на экран в одной строке.
//Версия 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.