Создать приложение, которое нарисует на экране три прямоугольника зеленого, красного и синего цвета.
Canvas. Pen. color:clRed;
Form1.Canvas.Rectangle(10, 10, 100, 100)

Const nx =50;
var z:array[1..nx] of integer; i,j,n,m,d,s,s1,k:integer; sr:real;
begin
write ('Введите число элементов n');read(n);
for i:= 1 to n do begin
z[i]:= random(30)-5;
write(z[i]:3);
if z[i]=0 then m:=i;end;writeln;
if m > 0 then begin
for j:=1 to n do begin
if (j< m) and (z[j] mod 2 = 0) then  s:= s + z[j];
if (j> m) and (z[j] mod 2 = 1) then begin s1:= s1 + z[j]; k:= k +1; end;end;end
else
begin
writeln;
for i:=1 to n do begin
for j:=2 to n do begin
if z[j] > z[j-1] then begind:=z[j-1]; z[j-1]:=z[j];  z[j]:= d;end;end;
end;end;writeln;
sr:= s1 /k;
if m > 0 then begin
writeln('сумму нечетных чисел от последнего нулевого значения до Z[N]', s:6);
write('среднее арифметическое четных чисел, находящихся в массиве до последнего нуля ', sr:6:3);
end
else
for j:=1 to n do
write(z[j]:3);end.

Объяснение:

я думаю правильно)

1)Редактирует, измеряет, сращивает и масштабирует геометрические фигуры;

Создает и делит 3D-модели на отделы для возможности и дальнейшей обработки внутренних деталей;

Применяет готовые тексты к моделям;

Добавляет к своей модели личные готовые компоненты: деревья, машины, окна или двери, и даже людей;

Ретуширует, смягчает черты лица;

Моделирует тени от объекта в реальном времени с любой точки земли;

Имитирует размещения видеокамер;

Осуществляет веб-экскурсий;

Создает некие экскурсии-презентации;

Экспортирует графические двухмерные графические файлы, следующих форматов JPG, PNG, TIF, TGA, BMP в 3D-моделей 0,3 DS, DDF, DWG, DXF, СКП;

Экспортирует двухмерные изображения своих моделей в формат JPG, BMP, PNG, TIF;

Печатает рисунок модели;

Обрабатывает дополнительные приложения, которые используют язык Ruby.

2) Главное меню → Окно → Параметры → Комбинации клавиш → кнопка Импорт. Здесь же кнопкой Экспорт можно сохранить свои назначенные клавиши или отменить все назначения кнопкой "Сброс".