Дан массив целых чисел. Выяснить: 1) верно ли, что сумма массива есть честное число;…

Uses crt; vari,sum,kvad: integer; mas: array [1… 10] of integer; beginfor i: =1 to 10 domas[i]: =random (100); for i: =1 to 10 dowrite (mas[i],'); for i: =1 to 10 dosum: =sum+mas[i]; if sum mod 2=0 thenwriteln ('sum=',sum,' summa 4etna9') elsewriteln ('sum=',sum,' summa ne 4etna9'); for i: =1 to 10 dokvad: =kvad+mas[i]*mas[i]; if kvad>9999 thenwriteln ('kvad=',kvad,' p9tizna4noe') elsewriteln ('kvad=',kvad,' ne p9tizna4noe'); read; end.