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

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.