Втоблице пакозона успеваемость айдара по четвертям постройте график

Файлы ОС хранятся во внешней и долговременной памяти (на жестком, гибком или лазерном дисках). Но программы могут выполняться только если они находятся в оперативной памяти, поэтому файлы ОС  необходимо загрузить в оперативную память. Диск (жесткий, гибкий или лазерный) , на котором находятся файлы ОС  и с которого производится загрузка , называется системным. После включения ПК  производится загрузка ОС  с системного диска в оперативную память . Но для того, чтобы компьютер выполнял какую-то программу , эта программа уже должна находиться в оперативной памяти. Разрешение этого противоречия состоит в последовательной , поэтапной загрузки операционной системы. В постоянно-запоминающемся устройстве (ПЗУ)  содержаться программы тестирования ПК  и первого этапа загрузки ОС - это BIOS (базовая система ввода/вывода) . После включения питания процессор начинает выполнять программы самотестирования  компьютера POST, то есть производится тестирование работо процессора , памяти и других аппаратных средств компьютера. После проведения этого самотестирования специальная программа в BIOS, и начинает поиск загрузчика   ОС. Происходит поочередное обращение к имеющимся дискам и поиск на определенном месте (это в первом загрузочном секторе диска) наличия спец. программы Master Boot (программа загрузчика ОС). Эта программа загружается в ОС и ей передается управление работой компьютера. Программа ищет файлы ОС с системного диска  и загружает их в оперативную память , в качестве программных модулей и передает им управление. 

У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы):
uses Crt;
const n = 10;
var A: array [1..n] of integer; 
        i: integer;
begin 
ClrScr; 
Randomize; 
WriteLn ( ' Massiv I: '); 
for i:=1 to n do 
    begin     
          A[i] := 1+random(n);  
          Write (A[i]:4); 
    end; 
WriteLn; WriteLn ( ' Massiv II: '); 
for i:=1 to n do 
    begin   
           if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i];     
           Write (A[i]:4); 
   end;
ReadLn;
end.