Программа в Паскале "Эффект матрицы".Помогите заменить символы на 0 и 1 и сделать их не голубыми,а зелеными на черном фоне.Uses crt; var s,i,x,y,D,n: integer; r: real; begin clrscr; textbackground(black);x:=1; y:=1; TextColor(green);writeln( нажмите любую клавишу...); readkey; clrscr; REPEAT textattr:=1; r:=48; while r

Убери (или закомментируй) строку textattr:=1; после REPEAT 

Чтобы были 0 и 1 замени фрагмент
 for I:=1 to N do
 begin
        d:=random(3);
        gotoxy(x,y);
        if d
на моей машине работает очень быстро. Чтобы замедлить, увеличь число 128 (я ставил 12800) в строке
while r