Последняя задача… если вы мне поможете, то в аттестате 4 будет…

program a1; vara: array [1… 15] of integer; a2: array [1… 15] of integer; Mas1: integer; Mas2: integer; Raz: integer; i: integer; begin//Подключаем датчик случайных чиселrandomize; //Цикл заполняющий массивы и нахождение сумм элементов масиваfor i: =1 to 15 dobegina[i]: =random (100); a2[i]: =sqr (a[i]) -a[i]; Mas1: =Mas1+a[i]; Mas2: =Mas2+a2[i]; end; //находим разницу массивовraz: =mas1-mas2; //Выводим на экран 1 ый массивwrite ('Первый массив: '); for i: =1 to 15 dobeginwrite (a[i],'|') end; writeln ('); //Выводим на экран 2 ой массивwrite ('Второй массив: '); for i: =1 to 15 dobeginwrite (a2[i],'|') end; writeln ('); //Выводим на экран разность массивовwrite ('Разность сумм элементов массива: ', raz); writeln ('); end.