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

Uses crt;
var
i,sum,kvad:integer;
mas:array [1..10] of integer;
begin
for i:=1 to 10 do
mas[i]:=random (100);
for i:=1 to 10 do
write(mas[i], );
for i:=1 to 10 do
sum:=sum+mas[i];
if sum mod 2=0 then
writeln(sum=,sum, summa 4etna9)
else
writeln(sum=,sum, summa ne 4etna9);
for i:=1 to 10 do
kvad:=kvad+mas[i]*mas[i];
if kvad>9999 then
writeln(kvad=,kvad, p9tizna4noe)
else
writeln(kvad=,kvad, ne p9tizna4noe);
read;
end.