Дан массив целых чисел. Выяснить:
1) верно ли, что сумма массива есть честное число;
2)верно ли, что сумма квадратов элементов массива есть пятизначное число. 

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.