<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
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.
Вот верный ответ:
101101,01₂=2D,4
6+2=8 6-2=4 8+4=12 8-4=4 4+4=8 шестикутник-6,зірочка-2. ромбик-8,кружечок-4