повернуть стул это задание по информатике

Uses crt;
const N=10;
var a:array [1..N] of integer;
    x,k:integer;
begin
     k:=0;
     for x:=1 to 10 do
     begin
          a[x]:=random(99)+1;
          writeln('a[',x,']:',a[x]);
          if a[x] mod 3=0 then inc(k);
     end;
     writeln('Количество элементов, кратных 3:',k);
end.     
---
Для турбо паскаль:
uses crt;
const N=10;
var a:array [1..N] of integer;
    x,k:integer;
begin
     clrscr;
     k:=0;
     for x:=1 to 10 do
     begin
          a[x]:=random(100)+1;
          writeln('a[',x,']:',a[x]);
          if a[x] mod 3=0 then inc(k);
     end;
     writeln(k);
     readln;
end.

Скрины, как должна работать программа, приложила.

Создание и изменение ключевых полейОткройте таблицу в режиме конструктора.Выделите одно или несколько полей, которые необходимо определить как ключевые. Для выделения одного поля выберите область выделения строки нужного поля. Для выделения нескольких полей нажмите и удерживайте клавишу CTRL и выберите область выделения для каждого поля.Нажмите кнопку Ключевое поле на панели инструментов.Допускается назначение ключевым полем поля, содержащего данные, однако, если в этом поле имеются повторяющиеся или пустые значения, будет выведено сообщение об ошибке. Получивший такое сообщение пользователь имеет три возможности: выполнить запрос на поиск повторяющихся записей для поиска записей, содержащих повторяющиеся или пустые значения в поле, и изменить эти значения; выбрать другое поле или добавить поле счетчика и определить его как ключевое.Для составного ключа существенным может оказаться порядок образующих ключ полей. Сортировка записей осуществляется в соответствии с порядком ключевых полей в бланке в режиме конструктора таблицы. Если необходимо указать другой порядок сортировки без изменения порядка ключевых полей, то сначала определите ключ, как это описано выше, а затем нажатием кнопки Индексы на панели инструментов откройте окно "Индексы" и укажите другой порядок полей для индекса с именем "PrimaryKey".