Программа в Паскале "Эффект матрицы".Помогите заменить символы на 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<=128 do
r:=r+0.001;
Randomize;
N:=random(9);
for I:=1 to N do begin
d:=random(70);
If d<10 then d:=10;
gotoxy(x,y);
write(CHR(d));
y:=y+1;
if y=25 then y:=1;
end;
X:=random(80);
if x>=80 then x:=1;
writeln;
writeln;
UNTIL KEYPRESSED;
textattr:=145;
gotoxy(32,12);
writeln(г==============¬);
gotoxy(32,13);
writeln(¦ До встречи ¦);
gotoxy(32,14);
writeln(L==============-);
readln; end.

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

Чтобы были 0 и 1 замени фрагмент
 for I:=1 to N do
 begin
        d:=random(3);
        gotoxy(x,y);
        if d<2 then write(d) else write( );       

на моей машине работает очень быстро. Чтобы замедлить, увеличь число 128 (я ставил 12800) в строке
while r<=128 do 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.