Паскаль .Задать два целочисленных массива одинакового размера (не более 13 элементов). Вывести исходные на экран. Сформировать новый массив являющийся квадратом разности исходных массивов. Вычислить сумму тех элементов каждого массива которые кратны 4.

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var b := ArrRandom(n, -99, 99);

 b.Println;

 var c := a.Zip(b, (p, q)-> Sqr(p - q)).ToArray;

 c.Println;

 Print('Суммы элементов, кратных 4:');

 a.Where(t -> t mod 4 = 0).Sum.Print;

 b.Where(t -> t mod 4 = 0).Sum.Print;

 c.Where(t -> t mod 4 = 0).Sum.Println;

end.