Скласти програму (b paskal) обчислення площі поверховості зрізаного конуса, за формулою s=╥(r+r)l+╥r^2+╥r^2 якщо r=12, 5 см; r =7, 82см; i=22, 4см;

Var r,s,i,t,w,u : real;beginwriteln('Введите r');readln(r);writeln('Введите R');readln(t);writeln('Введите I');readln(t);s:=r+t;s:=s*3.14;w:=abs(t);w:=w*3.14;u:=abs(r);u:=u*3.14;writeln('ответ: ', s+w+u)end.
P.S Извините, что на русском:)

1.  Укажите программу для работы с растровыми изображениями.

B. Paint.

2. В файле какого формата хранятся растровые изображения?

А. BMP.

3. В каком формате применяется сжатие?

А. JPG.

4. Формат графического файлы – это:

представления и расположения графических данных на внешнем носителе.

5. Выберите графический формат, в котором могут храниться анимированные изображения.

А. GIF.

Точно не уверенна, но думаю так

Редактор векторной графики Inkscape.

1.  Укажите стандартный формат файлов в редакторе Inkscape.

А. Inkscape SVG.

2. Для точной настройки инструментов служит:

B. Панель параметров инструментов.

3. Просмотреть список выполненных действий можно, выполнив команду:

C. Правка→История действий.

4. Какая команда меню открывает диалог «Заливка и обводка»?

C. Объект→ Заливка и обводка.

5. Какую клавишу необходимо удержать нажатой при выборе цвета обводки из Палитры?

C. Shift.

Решение со смещением всех последующих элементов. 

program znanija;
const n = 21; // N + 1
var 
a:array[1..n] of integer;
m, i:integer;
begin

write('Введите позицию для вставки: ');
readln(m);

if (m<1) or (m>n-1) then
begin 
writeln('Недопустимое значение m'); 
exit;
end;

write('Массив до вставки: ');
for i := 1 to n-1 do
begin 
a[i] := random(100); 
write(a[i], ' '); 
end;

writeln();
for i := n - 1 downto m do // Смещение
a[i+1] := a[i]; 
  
a[m] := 10;  // Вставка

write('Массив после вставки: ');
for i := 1 to n do 
write(a[i], ' ');
end.