Сделать таблицу заполнить её что относится к системному блоку: устройство ввода: устройств вывода

Устройства ввода - клавиатура, мышь, скайнер устройства вывода - монитор, принтер, плоттер. системный блок - куллер, жесткий диск, видеокарта, звуковая карта, оперативная память, дисковод, процессор.

Uses   graphabc; var   i, k: integer;   arr: array [1..6] of color; begin   writeln('сколько кирпичиков? ');   readln(k);   arr[1] : = clpink; arr[2] : = clred; arr[3] : = clgreen;   arr[4] : = clblue; arr[5] : = clyellow; arr[6] : = clorange;   for i : = 0 to k - 1 do   begin     setbrushcolor(arr[random(6) + 1]);     fillrectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19);     sleep(20);   end; 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