Составить блок - схему дана последовательность из n - элементов, определить сумму квадратов элементов последовательности кратных 3.

  если бы ты был внутренне благ и чист, тогда бы ты все видел и постигал без труда. чистое сердце проникает в тайны неба и в тайны преисподней. каков человек внутри себя, так он и судит обо всем внешнем. если в мире и есть какая-либо радость, обретается она в чистом сердце. а все напасти и скорби лучше всего ведомы сердцу злому. подобно железу, которое, будучи помещенным в огонь, раскаляется и очищается от ржавчины, человек, обращающий всего себя к богу, очищается от лености и превращается в нового человека. 

// pascalabc.net 3.2, сборка 1341 от 20.11.2016 begin   var a: =arrrandom(15,-10,30); a.println;   var b: =arrrandom(25,-10,30); b.println;   var ma: =a.where(x-> x.iseven).max;   var mb: =b.where(x-> x.iseven).max;   if ma> mb then       writelnformat('максимум четных 1-го массива {0} больше 2-го {1}',ma,mb)   else       if mb> ma then           writelnformat('максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb)       else writeln('максимумы четных элементов в массивах равны ',ma) end. пример -2 30 -1 19 16 26 21 24 5 19 -3 28 10 11 -9 14 6 -2 28 26 4 8 -4 -7 28 -4 10 -9 6 29 -10 8 9 26 5 12 23 18 9 20 максимум четных 1-го массива 30 больше 2-го 28