Что выполняют команды: setpencolor(clred), loadpicture('z2.jpg'), textout(80,140,'11"а" класс'), drawpicture(nebo,100,120), setbrushpicture('zl.jpg')?

1)  setpencolor(color) -   устанавливает цвет пера, задаваемый параметром color2)    loadpicture(fname) n: =loadpicture(fname) – загружает рисунок из файла с именем fname в оперативную память и возвращает описатель рисунка в целую переменную n; если файл не найден, то возникает ошибка времени выполнения. загружать можно рисунки в формате .bmp, .jpg или .gif. загрузка готового рисунка 3)  вывод текста в графическое окно textout(x,y,’строка’); - выводит строку текста в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст) 4)  drawpicture(n,x,y); выводит рисунок с описателем n в позицию (x,y) графического окна. вывод рисунка в графическое окно uses graphabc 5)  заливка кистью setbrushpicture(‘fname’) - устанавливает в качестве образца для закраски кистью образец, хранящийся в файле fname, при этом текущий цвет кисти при закраске игнорируется

//pascal abc.net v3.1 сборка 1172 var   ar: array[1..15] of integer;   i,k1,k2: integer;   r1,r2: real; begin   randomize;   writeln('array: ');   for i: =1 to 15 do   begin     ar[i]: =random(-20,20);     write(ar[i]: 4);     if i mod 2=0 then       begin         inc(k1);         r1: =r1+ar[i];       end;     if ar[i]> 0 then       begin         inc(k2);         r2: =r2+k2;       end;   end;   r1: =r1/k1;   r2: =r2/k2;   writeln;   if r1> r2 then writeln('среднее арифметическое элементов стоящих на четных местах');   if r1< r2 then writeln('cреднее арифметическое положительных элементов массива');   if r1=r2 then writeln('равно'); end.