Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
var x,y,i: integer; Z: boolean; begin Randomize; repeat x:=Random(20); y:=Random(20); Z:=(x>=y); writeln(Z); i:=i+1; until i>20; end.
