Pascal :

var
 i:integer;
begin
  for i:=1 to 100 do
  begin
  if ((i+3) mod 5=0) and ((i-3) mod 6=0) then begin write(i); break; end;
  end;
end.