Подготовьте плакат "Процессор, его функции и основные характеристики", используя схему 1 ​

Program Mysmka;
uses crt;
const n=15;
var
  a:array[1..n] of real;
  i:integer;
  z,sum40:real;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  write('Введите загадочное число Z ');
  readln(z);
  writeln('Элементы массива:');
  {создание и вывод массива}
  sum40:=0;
  for i:=1 to n do
    begin
      a[i]:=i*z;
      write (a[i]:7:2);
      if a[i]>40 then sum40:=sum40+a[i];
    end;
  writeln();
   writeln('Сумма чисел, больших 40: ',sum40:7:2);    
end.

PROGRAM ThreeSequences(INPUT, OUTPUT);
VAR
 Number: ARRAY[1 .. 3, 1 .. 10] OF INTEGER;
 ArithmeticAverage: ARRAY[1 .. 3] OF INTEGER;
 I, J: INTEGER;  
BEGIN {ThreeSequences}
 Randomize;
 {Генерирует 3 последовательности по 10 случайных чисел}
 FOR I := 1 TO 3
 DO
   FOR J := 1 TO 10
   DO
     Number[I][J] := Random(10) + 1;
 {Выводит последовательности и считает среднее арифметическое}
 FOR I := 1 TO 3
 DO
   BEGIN
     WRITE('Sequences: ');
     ArithmeticAverage[I] := 0;
     FOR J := 1 TO 10
     DO
       BEGIN
         WRITE(Number[I][J]:3);
         {Складывает все числа последовательности}
         ArithmeticAverage[I] := ArithmeticAverage[I] + Number[I][J];
       END;
     WRITELN;
     {Делит на количество чисел последовательности}
     ArithmeticAverage[I] := ArithmeticAverage[I] DIV J;
     WRITELN('ArithmeticAverage: ', ArithmeticAverage[I]);
   END;
END. {ThreeSequences}