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.