Создайте программу для решения следующих задач (4.5.7) или (4.5.6) язык Turbo Pascal

{Выводит узор из 100 произвольно размещенных окружностей произвольного

радиуса и цвета}

uses Graph;

var

grDriver:integer;

grMode: integer;

grPath:string;

ErrCode:integer;

x,y,r: integer; ( координаты центра и радиус окружности }

i: integer;

begin

grDriver:=VGA;

grMode:=VGAHi;

grPath:=' ';

InitGraph (grDriver,grMode,grPath);

ErrCode:=GraphResult;

if ErrCode <> grOk then

begin

writeln ('Ошибка инициализации графического режима.1);

writeln ('Для завершения работы нажмите <Enter>');

readln;

Halt(l);

end;

Randomize;

for i:=l to 100 do

begin

x:=Random(640);

y:=Random(480);

r:=Random(240);

Setcolor(Random(16));

Circle(x,y,r);

end;

readin;

end.

Джо́йстик — устройство ввода информации в персональный компьютер, которое представляет собой качающуюся в двух плоскостях вертикальную ручку.
Компьютер- Электронно-вычислительная машина
Файл- Специально организованная структура данных, распознаваемая компьютером как единое целое

Колонка – группа излучателей, расположенных линейно (чаще всего вертикально).

Компью́терная мышь — координатное устройство для управления курсором и отдачи различных команд компьютеру
Принтер- Печатающее устройство, подключаемое к компьютеру.