примени эту программу {êîòîðàÿ âûâîäèò íà ýêðàí ïîñëåäîâàòåëüíîñòü ïàð ÷èñåë êàæäûé ðàç îòëè÷èòåëüíûì öâåòîì, âûáðàííûì ñëó÷àéíûì Black=0; Blue=1; Green=2; Cyan=3; Red=4; Magenta=5; Brown=6; LightGray=7; DarkGray=8; LightBlue=9; LightGreen=10; LightCyan=11; LightRed=12; LightMagenta=13; Yellow=14; White=15; } Program R; uses Crt ; var i,a:integer; begin randomize; for i:=1 to 4 do begin textcolor (random(14)+1); gotoxy (1,i); writeln(random(2)+1); end; for a:=4 downto 1 do begin textcolor (random(14)+1); gotoxy (5,a); writeln(random(3)+1); end; Readln; end.