Требуемое значение можно вычислить по формуле вида:
=СУММЕСЛИМН(C2:C11;C2:C11;">100";C2:C11;"<200")
(в примере в ячейках диапазона C2:C11 записана стоимость товаров)
Var a,b:real;
Begin
Write('Введите 2числа: '); readln(a,b);
Writeln('Среднее арифмитическое этих чисел = ',(a+b)/2);
Writeln('Среднее геометрическое этих чисел = ',(a*b)/2);
<span>End.</span>
Открываете ворд → вставка → фигуры → выбираете нужную фигуру
-------------------------
Конечно, все зависит от версии, но метод вставки фигур примерно одинаковый.
Скриншоты помогут
Var a,k,b,c:longint;
begin
read (a);
k:=a div 100;
b:=a div 10 mod 10;
c:=a mod 10;
if ((k>b) and (k>c)) then writeln (k) else
if ((b>k) and (b>c)) then writeln (b) else
if ((c>b) and (c>k)) then writeln (c);
<span>end.</span>