Создать файл MS Excel.
Создать таблицу. Рис.1.
Выделяем ячейки с В3 :В10. Правой кнопкой мыши – Формат ячеек. Рис.2.
Выбираем вкладку число – формат денежный – Ок. Рис.3
Далее заполняем таблицу Рис.4
Далее вычисляем Итого. Для этого выделяем ячейки В3:В10 (главная – редактирование – автосумма
Для построения диаграммы выделяем ячейки Рис.5.
Вставка – Диаграммы – открываем диалоговое окно – круговая – объемная разрезная круговая – ОК. У вас получилась круговая диаграмма, как на Рис.6
Заходим в макеты диаграмм – Выбираем макет диаграммы №6. Рис.7
Вставляем название диаграммы – Список продуктов.
Выбираем стиль диаграммы на ваше усмотрение.

1 - в) caa
2 - в) в столбик
3 - в) char
4 - в) пояснительный текст не нужен
5 - в) символ заключается в апострофы

1)
Var s1: string;
i,a:integer;
Begin
Writeln ('введите текст');
Readln (s1);
for i:=1 to length(s1) do
if (s1[i]='а')or(s1[i]='a') then a:=a+1;
writeln('количество букв а в тексте: ',a);
End.

2)
Var s1,s2: string;
Begin
Writeln ('введите первую строку');
Readln (s1);
Writeln ('введите вторую строку');
Readln (s2);
if length(s1)=length(s2) then writeln('длины строк совпадают')
else writeln('длины строк не совпадают')
End.

Const
  nm = 50;{ предельное число товаров }

var
  mn: array[1..nm] of string;
  mk, ms: array[1..nm] of real;
  i, k, n: integer;
  min: real;

begin
  Write('Введите число продуктов на складе (не более ', nm, '): ');
  Readln(n);
  min := 1e10;
  for i := 1 to n do
  begin
    Write('Наименование продукта ', i, ': '); Readln(mn[i]);
    Write('Количество и стоимость: '); Readln(mk[i], ms[i]);
    if min > mk[i] then begin min := mk[i]; k := i end
  end; 
  Writeln('На складе меньше всего продукта ', mn[k], ': ', mk[k],
    ' кг. стоимостью ', ms[k], ' руб. за 1 кг.')
end.