var
d:array [1..14] of integer;
a:integer;
begin
for a:=1 to 14 do begin
d[a]:=random(32)-7;
if d[a] mod 5=0 then d[a]:=0;
end;
end.
