program z10;
uses crt;
const n=6;
var a:array[1..n] of integer; i,m:integer;
BEGIN
for i:=1 to n do begin
write('vvedite a[',i,']');
readln(a[i]);
end;
for i:=1 to n do
if (a[i] mod 3=0) or (a[i] mod 5=0) then
writeln('otvet',a[i]);
readln;
END.