ЭФФЕКТ МАТРИЦЫ В Turbo Paskal Турбо паскале

Uses crt, Dos; var s,i,x,y,D,n: integer; r: real; regs: Registers; begin clrscr; := 1; := $20; := 0; := 0; Intr($10,regs); x:=1; y:=1; TextColor(RED); Writeln(’ ВНИМАНИЕ!!!’); Writeln(’Для полного эффекта просмотра разверните окно на весь экран (Alt Enter)’); writeln(’Затем нажмите любую клавишу...’); readkey; clrscr; REPEAT textattr:=10