var a:array[1..10] of integer;
s,i:integer;
begin
for  i:=1 to 10 do begin a[i]:=random(50); write(a[i]:4);end;
writeln;
for i:=1 to 10 do s:=s+a[i];
if (s mod 7=0) then  writeln('кратна') else writeln('не кратна');
end.