Контрольные вопросы 1. что такое файл? как его открыть? 2. что такое операционная система? 3. что такое каталог (папка)? 4. как войти в папку? 5. из чего состоит имя файла? 6. какое назначение папки? 7. каково назначение контекстного меню? 8. для чего необходим проводник и какова его структура? 9. как запустить проводник? 10. какие действия выполняются над папками и ярлыками? 11. как проверить свойства папки или файла? 12. что такое корзина, и какие действия выполняются с файлами корзины? 13. сколько места занимает ярлык на диске? 14. для чего необходим буфер обмена?

1.Блок информации на внешнем запоминающем устройстве компьютера. Нажать на него с курсора мышки.
2. Это комплекс взаимосвязанных программ
3.Это файл,для простоты пользователя, позволяющий объединять множество различных файлов в одном месте
5. Им.файл сост. из двух частей, собственно имя файла и расширение

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var n:=ReadInteger('n=');
  var a:=MatrixRandom(n,n,10,99);
  var s:=0;
  var k:=0;
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Print(a[i,j]);
    Writeln;
    if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end;
    end;
  if k>0 then Writeln('S=',s/k:0:2)
  else Writeln('На главной диагонали нет четных элементов')
end.

Тестовое решение
n= 8
63 13 33 90 25 21 87 91
88 88 48 13 30 59 81 27
73 23 76 77 52 19 33 97
53 87 13 74 17 35 61 70
77 96 51 61 82 33 63 22
39 88 84 54 88 73 74 69
76 26 69 14 45 80 70 54
80 36 47 38 18 22 84 62
S=75.33

1. Современный вариант
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.GroupBy(c->c).Select(x->(x.Key,x.Count)).OrderBy(x->x[0])
    .Select(x->Format('"{0}" - {1}',x[0],x[1])).Println(NewLine)
end.

Пример
10101110
"0" - 3
"1" - 5

2. Школьный вариант в стиле Pascal ABC, Free Pascal

var
  s:string;
  i,k0,k1:integer;
begin
  Readln(s);
  k0:=0; k1:=0;
  for i:=1 to Length(s) do
    if s[i]='0' then Inc(k0) else Inc(k1);
  Writeln('"0" - ',k0);
  Writeln('"1" - ',k1)
end.

Вывод результатов точно такой же, как и выше.