Понятие локальной и глобальной сети. Топологии локальных сетей, их особенности и

характеристики. Средства коммутации в локальных и глобальных сетях

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.

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

По русски, моделирование это изучение явления или предмета по их модели.
1) Атом. На самом деле его модель является лишь примерной, никто не видел, действительно ли он состоит так, как нам говорят, но принято, что мы его знаем. Поэтому его изучение проходит на модели.
2) Самолет. Никто обычному человеку не даст самолет, на изучение, лишь за деньги возможно купля самолета и его изучения, поэтому ваш единственный его изучения - это моделирование.
3) Взрыв. Аналогично самолету, будете ли вы совершать взрывы для его изучения. Вы можете использовать только то, что вам дано или же сведения, полученные при случайном взрыве. Всякие "Разрушители легенд" исключение.
4) Так же мы не видели что внутри Земли, мы лишь можем предполагать. Ибо радиус Земли 6371км, а люди пробились лишь на 7 600 м, что пренебрежено мало.

P.S. Земля (с большой буквы)- планета, земля (с маленькой) - почва.
P.S.S. Надеюсь на благодарность и лучший ответ.